ports/56574: [NEW PORT] mail/p5-Email-LocalDelivery-Ezmlm: Deliver mail into ezmlm archives

[Lars Thegler]

The following reply was made to PR ports/56574; it has been noted by GNATS.

From: "Lars Thegler" <lars at thegler.dk>
To: <freebsd-gnats-submit at FreeBSD.org>, <erwin at FreeBSD.org>
Cc:  
Subject: Re: ports/56574: [NEW PORT] mail/p5-Email-LocalDelivery-Ezmlm: Deliver mail into ezmlm archives
Date: Wed, 10 Sep 2003 22:35:30 +0200

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