diff options
| author | lth <lth@FreeBSD.org> | 2004-06-02 05:47:54 +0800 |
|---|---|---|
| committer | lth <lth@FreeBSD.org> | 2004-06-02 05:47:54 +0800 |
| commit | 34d9adda2e93b32718014ccb098f958e0acfce37 (patch) | |
| tree | 171331b76e5fdce2ca38b8f76e75ef080c771744 /mail/p5-Email-LocalDelivery | |
| parent | 3deff656bc38fb4fcfd3fb94df01c4149e523290 (diff) | |
| download | freebsd-ports-gnome-34d9adda2e93b32718014ccb098f958e0acfce37.tar.gz freebsd-ports-gnome-34d9adda2e93b32718014ccb098f958e0acfce37.tar.zst freebsd-ports-gnome-34d9adda2e93b32718014ccb098f958e0acfce37.zip | |
Fix filehandle passing
Approved by: erwin (mentor)
Diffstat (limited to 'mail/p5-Email-LocalDelivery')
| -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 } |