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>