diff options
| author | fukachan <fukachan> | 2004-08-20 05:13:22 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2004-08-20 05:13:22 +0000 |
| commit | 53443d58bf37dc47a3087272673c8f5a093b59bb (patch) | |
| tree | 1f5ebb88e1d1f087c876d62ff8d51c1c6833de3b | |
| parent | 9d1e2fc53614ceab05fc7dfa972e1eceded79334 (diff) | |
| download | fml8-53443d58bf37dc47a3087272673c8f5a093b59bb.tar.gz fml8-53443d58bf37dc47a3087272673c8f5a093b59bb.tar.bz2 fml8-53443d58bf37dc47a3087272673c8f5a093b59bb.zip | |
eval q{}
| -rw-r--r-- | fml/lib/Mail/Delivery/Utils.pm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/fml/lib/Mail/Delivery/Utils.pm b/fml/lib/Mail/Delivery/Utils.pm index d7722986..a3971e19 100644 --- a/fml/lib/Mail/Delivery/Utils.pm +++ b/fml/lib/Mail/Delivery/Utils.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: Utils.pm,v 1.20 2004/05/17 12:33:31 fukachan Exp $ +# $FML: Utils.pm,v 1.21 2004/06/29 10:05:29 fukachan Exp $ # package Mail::Delivery::Utils; @@ -157,8 +157,10 @@ sub _smtplog my $fp = $SmtpLogFunctionPointer; if ($fp) { - eval &$fp($buf); - print STDERR $@, "\n" if $@; + if (defined $buf) { + eval q{ &$fp($buf); }; + print STDERR $@, "\n" if $@; + } } else { print STDERR @_, "\n"; |