Bug 56574

Comment 1 Erwin Lansing 2003-09-10 10:15:20 UTC

State Changed
From-To: open->feedback

This port doesn't work with 5.005_03. Could you try to  
patch it or mark it IGNORE?

The following patch file should make it 5.005_03-safe.

--- files/patch-Ezmlm.pm begins here ---
--- lib/Email/LocalDelivery/Ezmlm.pm.orig       Wed Sep 10 22:17:27 2003
+++ lib/Email/LocalDelivery/Ezmlm.pm    Wed Sep 10 22:19:41 2003
@@ -1,6 +1,6 @@
 use strict;
 package Email::LocalDelivery::Ezmlm;
-our $VERSION = '0.10';
+use vars qw($VERSION); $VERSION = '0.10';
 use File::Path qw(mkpath);
 use File::Basename qw( dirname );

@@ -40,7 +40,8 @@
         # XXX should lock the folder - figure out how ezmlm does that

         my $num;
-        if (open my $fh, "$folder/num") {
+        use IO::Handle; my $fh = IO::Handle->new;
+        if (open $fh, "$folder/num") {
             ($num) = (<$fh> =~ m/^(\d+)/);
         }
         ++$num;
@@ -48,7 +49,7 @@
         my $filename = sprintf('%s/archive/%d/%02d',
                                $folder, int $num / 100, $num % 100);
         eval { mkpath( dirname $filename ) };
-        open my $fh, ">$filename" or next;
+        open $fh, ">$filename" or next;
         print $fh $mail;
         close $fh or next;

--- files/patch-Ezmlm.pm ends here ---

Comment 3 Erwin Lansing 2003-09-10 22:08:43 UTC

Responsible Changed
From-To: freebsd-ports-bugs->erwin

I'll handle this

Comment 4 Erwin Lansing 2003-09-24 09:48:42 UTC

State Changed
From-To: feedback->closed

Committed, thanks! 

I added a post-patch target to remove the .orig file which 
otherwise would have been installed