diff options
| author | Lars Thegler <lth@FreeBSD.org> | 2004-06-01 21:47:54 +0000 |
|---|---|---|
| committer | Lars Thegler <lth@FreeBSD.org> | 2004-06-01 21:47:54 +0000 |
| commit | f86b91b75666673cabb027a2365747ecde61bd85 (patch) | |
| tree | 374c698950ddadeda1d0841eba3bec9aaa602aa1 | |
| parent | Fix path typo. (diff) | |
Fix filehandle passing
Approved by: erwin (mentor)
| -rw-r--r-- | mail/p5-Email-LocalDelivery/files/5.005-LocalDelivery::Mbox.pm | 6 |
1 files changed, 3 insertions, 3 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 839364ab8822..bf8717a85aed 100644 --- a/mail/p5-Email-LocalDelivery/files/5.005-LocalDelivery::Mbox.pm +++ b/mail/p5-Email-LocalDelivery/files/5.005-LocalDelivery::Mbox.pm @@ -1,5 +1,5 @@ --- LocalDelivery/Mbox.pm.orig Fri Nov 14 10:04:24 2003 -+++ LocalDelivery/Mbox.pm Tue Jun 1 20:03:37 2004 ++++ LocalDelivery/Mbox.pm Tue Jun 1 20:47:05 2004 @@ -4,7 +4,7 @@ use Email::Simple; use Fcntl ':flock'; @@ -23,13 +23,13 @@ - $class->unlock($fh) || next; - close $fh or next; + open FH, ">> $file" or next; -+ $class->getlock(FH) || 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; ++ $class->unlock(\*FH) || next; + close FH or next; push @rv, $file } |