Date: Wed, 10 Sep 2003 13:40:16 -0700 (PDT) From: "Lars Thegler" <lars@thegler.dk> To: freebsd-ports-bugs@FreeBSD.org Subject: Re: ports/56574: [NEW PORT] mail/p5-Email-LocalDelivery-Ezmlm: Deliver mail into ezmlm archives Message-ID: <200309102040.h8AKeGZt058435@freefall.freebsd.org>
next in thread | raw e-mail | index | archive | help
The following reply was made to PR ports/56574; it has been noted by GNATS. From: "Lars Thegler" <lars@thegler.dk> To: <freebsd-gnats-submit@FreeBSD.org>, <erwin@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 ---
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?200309102040.h8AKeGZt058435>