From owner-freebsd-ports-bugs@FreeBSD.ORG  Wed Sep 10 13:40:18 2003
Return-Path: <owner-freebsd-ports-bugs@FreeBSD.ORG>
Delivered-To: freebsd-ports-bugs@hub.freebsd.org
Received: from mx1.FreeBSD.org (mx1.freebsd.org [216.136.204.125])
	by hub.freebsd.org (Postfix) with ESMTP id 24F7416A4E5
	for <freebsd-ports-bugs@hub.freebsd.org>;
	Wed, 10 Sep 2003 13:40:18 -0700 (PDT)
Received: from freefall.freebsd.org (freefall.freebsd.org [216.136.204.21])
	by mx1.FreeBSD.org (Postfix) with ESMTP id A023343F3F
	for <freebsd-ports-bugs@hub.freebsd.org>;
	Wed, 10 Sep 2003 13:40:17 -0700 (PDT)
	(envelope-from gnats@FreeBSD.org)
Received: from freefall.freebsd.org (gnats@localhost [127.0.0.1])
	by freefall.freebsd.org (8.12.9/8.12.9) with ESMTP id h8AKeHUp058437
	for <freebsd-ports-bugs@freefall.freebsd.org>;
	Wed, 10 Sep 2003 13:40:17 -0700 (PDT)
	(envelope-from gnats@freefall.freebsd.org)
Received: (from gnats@localhost)
	by freefall.freebsd.org (8.12.9/8.12.9/Submit) id h8AKeGZt058435;
	Wed, 10 Sep 2003 13:40:16 -0700 (PDT)
Date: Wed, 10 Sep 2003 13:40:16 -0700 (PDT)
Message-Id: <200309102040.h8AKeGZt058435@freefall.freebsd.org>
To: freebsd-ports-bugs@FreeBSD.org
From: "Lars Thegler" <lars@thegler.dk>
Subject: Re: ports/56574: [NEW PORT] mail/p5-Email-LocalDelivery-Ezmlm:
	Deliver mail into ezmlm archives
X-BeenThere: freebsd-ports-bugs@freebsd.org
X-Mailman-Version: 2.1.1
Precedence: list
Reply-To: Lars Thegler <lars@thegler.dk>
List-Id: Ports bug reports <freebsd-ports-bugs.freebsd.org>
List-Unsubscribe: <http://lists.freebsd.org/mailman/listinfo/freebsd-ports-bugs>,
	<mailto:freebsd-ports-bugs-request@freebsd.org?subject=unsubscribe>
List-Archive: <http://lists.freebsd.org/pipermail/freebsd-ports-bugs>
List-Post: <mailto:freebsd-ports-bugs@freebsd.org>
List-Help: <mailto:freebsd-ports-bugs-request@freebsd.org?subject=help>
List-Subscribe: <http://lists.freebsd.org/mailman/listinfo/freebsd-ports-bugs>,
	<mailto:freebsd-ports-bugs-request@freebsd.org?subject=subscribe>
X-List-Received-Date: Wed, 10 Sep 2003 20:40:18 -0000

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