| Date: | Mon, 7 Apr 2003 22:11:58 +0100 |
| From: | Richard Clamp <richardc [...] unixbeard.net> |
| To: | bug-email-localdelivery [...] rt.cpan.org |
| Subject: | ununbust |
http://cvs.simon-cozens.org/viewcvs.cgi/Email-LocalDelivery/LocalDelivery.pm.diff?r1=1.3&r2=1.4&cvsroot=Email
That commit attributes a dumb thing to me, which I don't think I sent
you, since it busts things by making the docs for ->deliver lie.
Here's a fixup:
--- LocalDelivery.pm~ 2003-04-07 15:36:40.000000000 +0100
+++ LocalDelivery.pm 2003-04-07 22:05:08.000000000 +0100
@@ -48,12 +48,15 @@
}
my %to_deliver;
push @{$to_deliver{type_of($_)}}, $_ for @boxes;
+ my @rv;
for my $method (keys %to_deliver) {
eval "require Email::LocalDelivery::$method";
croak "Couldn't load a module to handle $method mailboxes" if
$@;
+ push @rv,
"Email::LocalDelivery::$method"->deliver($mail,
@{$to_deliver{$method}});
}
+ return @rv;
}
sub type_of {
--
Richard Clamp <richardc@unixbeard.net>