diff options
Diffstat (limited to 'mail/p5-Email-LocalDelivery/files/5.005-LocalDelivery::Mbox.pm')
-rw-r--r-- | mail/p5-Email-LocalDelivery/files/5.005-LocalDelivery::Mbox.pm | 49 |
1 files changed, 15 insertions, 34 deletions
diff --git a/mail/p5-Email-LocalDelivery/files/5.005-LocalDelivery::Mbox.pm b/mail/p5-Email-LocalDelivery/files/5.005-LocalDelivery::Mbox.pm index bf8717a85aed..2030e3a708c7 100644 --- a/mail/p5-Email-LocalDelivery/files/5.005-LocalDelivery::Mbox.pm +++ b/mail/p5-Email-LocalDelivery/files/5.005-LocalDelivery::Mbox.pm @@ -1,36 +1,17 @@ ---- LocalDelivery/Mbox.pm.orig Fri Nov 14 10:04:24 2003 -+++ LocalDelivery/Mbox.pm Tue Jun 1 20:47:05 2004 -@@ -4,7 +4,7 @@ - use Email::Simple; - use Fcntl ':flock'; +--- LocalDelivery/Mbox.pm.orig Sun Dec 19 00:06:35 2004 ++++ LocalDelivery/Mbox.pm Sun Dec 19 00:09:40 2004 +@@ -26,10 +26,10 @@ + my $dir = dirname($file); + return if ! -d $dir and not mkpath($dir); --our $VERSION = "1.07"; -+use vars qw($VERSION); $VERSION = "1.07"; +- open my $fh, ">> $file" or return; +- $class->getlock($fh) || return; +- seek $fh, 0, 2; +- return $fh; ++ open FH, ">> $file" or return; ++ $class->getlock(\*FH) || return; ++ seek FH, 0, 2; ++ return \*FH; + } - sub deliver { - my ($class, $mail, @files) = @_; -@@ -13,15 +13,15 @@ - my $dir = dirname($file); - next if ! -d $dir and not mkpath($dir); - -- open my $fh, ">> $file" or next; -- $class->getlock($fh) || next; -- seek $fh, 0, 2; -- print $fh "\n" if tell($fh) > 0; -- print $fh $class->_from_line(\$mail); # Avoid passing $mail where poss. -- print $fh $class->_escape_from_body(\$mail); -- print $fh "\n" unless $mail =~ /\n$/; -- $class->unlock($fh) || next; -- close $fh or next; -+ open FH, ">> $file" or next; -+ $class->getlock(\*FH) || next; -+ seek FH, 0, 2; -+ print FH "\n" if tell(FH) > 0; -+ print FH $class->_from_line(\$mail); # Avoid passing $mail where poss. -+ print FH $class->_escape_from_body(\$mail); -+ print FH "\n" unless $mail =~ /\n$/; -+ $class->unlock(\*FH) || next; -+ close FH or next; - push @rv, $file - } - return @rv; + sub _close_fh { |