cpet/freebsd-ports
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix filehandle passing

Browse Source 
Approved by:	erwin (mentor)
This commit is contained in:
Lars Thegler 2004-06-01 21:47:54 +00:00
parent b82595ff8b
commit f86b91b756
Notes: svn2git 2021-03-31 03:12:20 +00:00 
svn path=/head/; revision=110622
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
mail/p5-Email-LocalDelivery/files/5.005-LocalDelivery::Mbox.pm
View File

@ -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
}