diff options
| author | fukachan <fukachan> | 2001-12-24 04:55:14 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-12-24 04:55:14 +0000 |
| commit | 0b7a915175bb0130e9916bd764a62f9542f47cdf (patch) | |
| tree | 24c6ea171e7e02c9af7d0ef22214f49db8a7a626 | |
| parent | c904871b7121e69602209208c1c193c1e9163f6a (diff) | |
| download | fml8-0b7a915175bb0130e9916bd764a62f9542f47cdf.tar.gz fml8-0b7a915175bb0130e9916bd764a62f9542f47cdf.tar.bz2 fml8-0b7a915175bb0130e9916bd764a62f9542f47cdf.zip | |
delay loading of module Mail::Delivery
| -rw-r--r-- | fml/lib/FML/Process/Distribute.pm | 18 |
1 files changed, 11 insertions, 7 deletions
diff --git a/fml/lib/FML/Process/Distribute.pm b/fml/lib/FML/Process/Distribute.pm index f5d58015..567a1a23 100644 --- a/fml/lib/FML/Process/Distribute.pm +++ b/fml/lib/FML/Process/Distribute.pm @@ -3,7 +3,7 @@ # Copyright (C) 2000,2001 Ken'ichi Fukamachi # All rights reserved. # -# $FML: Distribute.pm,v 1.58 2001/12/22 09:21:09 fukachan Exp $ +# $FML: Distribute.pm,v 1.59 2001/12/23 11:37:07 fukachan Exp $ # package FML::Process::Distribute; @@ -297,8 +297,6 @@ sub _deliver_article } # distribute article - use Mail::Delivery; - my $fp = sub { Log(@_);}; # pointer to the log function my $sfp = sub { my ($s) = @_; print $s; print "\n" if $s !~ /\n$/o;}; @@ -319,11 +317,17 @@ sub _deliver_article } } - # start delivery - my $service = new Mail::Delivery { - log_function => $fp, - smtp_log_function => $sfp, + # delay loading of module + my $service = {}; + eval q{ + use Mail::Delivery; + $service = new Mail::Delivery { + log_function => $fp, + smtp_log_function => $sfp, + }; }; + croak($@) if $@; + if ($service->error) { Log($service->error); return;} $service->deliver( |