mail/p5-Email-LocalDelivery-Ezmlm/files/patch-Ezmlm.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

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