mirror/freebsd-ports
1
0
Fork 0
mirror of https://git.FreeBSD.org/ports.git synced 2024-10-23 20:51:43 +00:00
Code Issues Releases Activity

- Update to 0.08

Browse Source 
- Fix for perl 5.005_03

Approved by:	erwin (mentor)
This commit is contained in:
Lars Thegler 2004-06-01 20:22:15 +00:00
parent 9968b6382a
commit c36c2609ce
Notes: svn2git 2021-03-31 03:12:20 +00:00 
svn path=/head/; revision=110618
5 changed files with 72 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
mail/p5-Email-LocalDelivery/Makefile
View File

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

4
mail/p5-Email-LocalDelivery/distinfo
View File

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

16
mail/p5-Email-LocalDelivery/files/5.005-LocalDelivery.pm Normal file
View File

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

11
mail/p5-Email-LocalDelivery/files/5.005-LocalDelivery::Maildir.pm Normal file
View File

@ -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/\..*//;

36
mail/p5-Email-LocalDelivery/files/5.005-LocalDelivery::Mbox.pm Normal file
View File

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