… | |
… | |
249 | # now get raw message, unless we have it already |
249 | # now get raw message, unless we have it already |
250 | unless ($now) { |
250 | unless ($now) { |
251 | $format = $format->() if ref $format; |
251 | $format = $format->() if ref $format; |
252 | $format = sprintf $format, @args if @args; |
252 | $format = sprintf $format, @args if @args; |
253 | $format =~ s/\n$//; |
253 | $format =~ s/\n$//; |
254 | $now = AE::now; |
254 | $now = now; |
255 | }; |
255 | }; |
256 | |
256 | |
257 | # format msg |
257 | # format msg |
258 | my $str = $ctx->[4] |
258 | my $str = $ctx->[4] |
259 | ? $ctx->[4]($now, $_[0], $level, $format) |
259 | ? $ctx->[4]($now, $_[0], $level, $format) |