diff options
| author | lth <lth@FreeBSD.org> | 2004-06-01 20:22:15 +0000 |
|---|---|---|
| committer | lth <lth@FreeBSD.org> | 2004-06-01 20:22:15 +0000 |
| commit | 9c1950bfdc9b9d6e32d01cad99dea2ebb788922e (patch) | |
| tree | ebb6e1cb4fbaf658b15cfe1d3628e910da9d9eed /mail/p5-Email-LocalDelivery | |
| parent | 3493919abf91dc749812cf6ffb68d52accf2237f (diff) | |
| download | FreeBSD-ports-9c1950bfdc9b9d6e32d01cad99dea2ebb788922e.zip FreeBSD-ports-9c1950bfdc9b9d6e32d01cad99dea2ebb788922e.tar.gz | |
- Update to 0.08
- Fix for perl 5.005_03
Approved by: erwin (mentor)
Diffstat (limited to 'mail/p5-Email-LocalDelivery')
5 files changed, 72 insertions, 9 deletions
diff --git a/mail/p5-Email-LocalDelivery/Makefile b/mail/p5-Email-LocalDelivery/Makefile index 120bec4..134dd8c 100644 --- a/mail/p5-Email-LocalDelivery/Makefile +++ b/mail/p5-Email-LocalDelivery/Makefile @@ -6,7 +6,7 @@ # PORTNAME= Email-LocalDelivery -PORTVERSION= 0.07 +PORTVERSION= 0.08 CATEGORIES= mail perl5 MASTER_SITES= ${MASTER_SITE_PERL_CPAN} MASTER_SITE_SUBDIR= Email @@ -27,13 +27,13 @@ MAN3= Email::LocalDelivery.3 .include <bsd.port.pre.mk> .if ${PERL_LEVEL} < 500600 + +EXTRA_PATCHES= ${FILESDIR}/5.005-LocalDelivery.pm \ + ${FILESDIR}/5.005-LocalDelivery::Maildir.pm \ + ${FILESDIR}/5.005-LocalDelivery::Mbox.pm + post-patch: - ${PERL} -pi -e '$$_="" if /require 5/;' \ - -e '$$_="" if /use warnings/;' \ - -e 's/^our\s+([\$$\@\%]\w+)/use vars qw($$1);$$1/;' \ - ${WRKSRC}/LocalDelivery.pm \ - ${WRKSRC}/LocalDelivery/Maildir.pm \ - ${WRKSRC}/LocalDelivery/Mbox.pm + ${FIND} ${WRKSRC} -name \*.orig -delete post-configure: ${PERL} -pi -e 's,/usr/local,${PREFIX},g' ${WRKSRC}/Makefile diff --git a/mail/p5-Email-LocalDelivery/distinfo b/mail/p5-Email-LocalDelivery/distinfo index 475063b..614b3fa 100644 --- a/mail/p5-Email-LocalDelivery/distinfo +++ b/mail/p5-Email-LocalDelivery/distinfo @@ -1,2 +1,2 @@ -MD5 (Email-LocalDelivery-0.07.tar.gz) = f59cc917a1b87189c5f1b0c3e4be9959 -SIZE (Email-LocalDelivery-0.07.tar.gz) = 4048 +MD5 (Email-LocalDelivery-0.08.tar.gz) = 61dd51f919705734fd7da32b506595d6 +SIZE (Email-LocalDelivery-0.08.tar.gz) = 4178 diff --git a/mail/p5-Email-LocalDelivery/files/5.005-LocalDelivery.pm b/mail/p5-Email-LocalDelivery/files/5.005-LocalDelivery.pm new file mode 100644 index 0000000..4ee645a --- /dev/null +++ b/mail/p5-Email-LocalDelivery/files/5.005-LocalDelivery.pm @@ -0,0 +1,16 @@ +--- LocalDelivery.pm.orig Tue Jun 1 20:04:19 2004 ++++ LocalDelivery.pm Tue Jun 1 20:05:12 2004 +@@ -1,12 +1,10 @@ + package Email::LocalDelivery; + +-require 5.005_62; + use strict; +-use warnings; + use File::Path::Expand qw(expand_filename); + use Email::FolderType qw(folder_type); + use Carp; +-our $VERSION = '0.08'; ++use vars qw($VERSION); $VERSION = '0.08'; + + =head1 NAME + diff --git a/mail/p5-Email-LocalDelivery/files/5.005-LocalDelivery::Maildir.pm b/mail/p5-Email-LocalDelivery/files/5.005-LocalDelivery::Maildir.pm new file mode 100644 index 0000000..1bbad2c --- /dev/null +++ b/mail/p5-Email-LocalDelivery/files/5.005-LocalDelivery::Maildir.pm @@ -0,0 +1,11 @@ +--- LocalDelivery/Maildir.pm.orig Tue Jun 1 20:04:43 2004 ++++ LocalDelivery/Maildir.pm Tue Jun 1 20:06:01 2004 +@@ -3,7 +3,7 @@ + use Email::Simple; + use File::Path; + +-our $VERSION = "1.06"; ++use vars qw($VERSION); $VERSION = "1.06"; + my $maildir_time = 0; + my $maildir_counter = 0; + use Sys::Hostname; (my $HOSTNAME = hostname) =~ s/\..*//; diff --git a/mail/p5-Email-LocalDelivery/files/5.005-LocalDelivery::Mbox.pm b/mail/p5-Email-LocalDelivery/files/5.005-LocalDelivery::Mbox.pm new file mode 100644 index 0000000..839364a --- /dev/null +++ b/mail/p5-Email-LocalDelivery/files/5.005-LocalDelivery::Mbox.pm @@ -0,0 +1,36 @@ +--- LocalDelivery/Mbox.pm.orig Fri Nov 14 10:04:24 2003 ++++ LocalDelivery/Mbox.pm Tue Jun 1 20:03:37 2004 +@@ -4,7 +4,7 @@ + use Email::Simple; + use Fcntl ':flock'; + +-our $VERSION = "1.07"; ++use vars qw($VERSION); $VERSION = "1.07"; + + sub deliver { + my ($class, $mail, @files) = @_; +@@ -13,15 +13,15 @@ + my $dir = dirname($file); + next if ! -d $dir and not mkpath($dir); + +- open my $fh, ">> $file" or next; +- $class->getlock($fh) || next; +- seek $fh, 0, 2; +- print $fh "\n" if tell($fh) > 0; +- print $fh $class->_from_line(\$mail); # Avoid passing $mail where poss. +- print $fh $class->_escape_from_body(\$mail); +- print $fh "\n" unless $mail =~ /\n$/; +- $class->unlock($fh) || next; +- close $fh or next; ++ open FH, ">> $file" or next; ++ $class->getlock(FH) || next; ++ seek FH, 0, 2; ++ print FH "\n" if tell(FH) > 0; ++ print FH $class->_from_line(\$mail); # Avoid passing $mail where poss. ++ print FH $class->_escape_from_body(\$mail); ++ print FH "\n" unless $mail =~ /\n$/; ++ $class->unlock(FH) || next; ++ close FH or next; + push @rv, $file + } + return @rv; |
