| … | |
… | |
| 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) |
