mirror/freebsd-ports
1
0
Fork 0
mirror of https://git.FreeBSD.org/ports.git synced 2024-12-28 05:29:48 +00:00
Code Issues Releases Activity

- Update to 0.09

Browse Source 
- Moved simple patches into Makefile
- Removed maintainer-only target
This commit is contained in:
Lars Thegler 2004-12-19 00:25:16 +00:00
parent 59db8fc24c
commit 029ceb0925
Notes: svn2git 2021-03-31 03:12:20 +00:00 
svn path=/head/; revision=124440
5 changed files with 24 additions and 73 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -6,7 +6,7 @@
#
PORTNAME= Email-LocalDelivery
PORTVERSION= 0.08
PORTVERSION= 0.09
CATEGORIES= mail perl5
MASTER_SITES= ${MASTER_SITE_PERL_CPAN}
MASTER_SITE_SUBDIR= Email
@ -28,18 +28,15 @@ MAN3= Email::LocalDelivery.3
.if ${PERL_LEVEL} < 500600
EXTRA_PATCHES= ${FILESDIR}/5.005-LocalDelivery.pm \
${FILESDIR}/5.005-LocalDelivery::Maildir.pm \
${FILESDIR}/5.005-LocalDelivery::Mbox.pm
EXTRA_PATCHES= ${FILESDIR}/5.005-LocalDelivery::Mbox.pm
post-patch:
${FIND} ${WRKSRC} -name \*.orig -delete
@${PERL} -pi -e 's/^our\s+([\$$\@\%]\w+)/use vars qw($$1); $$1/;' \
${WRKSRC}/LocalDelivery.pm \
${WRKSRC}/LocalDelivery/Maildir.pm \
${WRKSRC}/LocalDelivery/Mbox.pm
@${RM} ${WRKSRC}/LocalDelivery/Mbox.pm.orig
post-configure:
${PERL} -pi -e 's,/usr/local,${PREFIX},g' ${WRKSRC}/Makefile
.endif
test: build
cd ${WRKSRC} ; make test
.include <bsd.port.post.mk>

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

@ -1,2 +1,2 @@
MD5 (Email-LocalDelivery-0.08.tar.gz) = 61dd51f919705734fd7da32b506595d6
SIZE (Email-LocalDelivery-0.08.tar.gz) = 4178
MD5 (Email-LocalDelivery-0.09.tar.gz) = 74cc1bbf18f036dace59b7bd9da869a2
SIZE (Email-LocalDelivery-0.09.tar.gz) = 4509

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

@ -1,16 +0,0 @@
--- 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
View File

@ -1,11 +0,0 @@
--- 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/\..*//;

49
mail/p5-Email-LocalDelivery/files/5.005-LocalDelivery::Mbox.pm
View File

@ -1,36 +1,17 @@
--- LocalDelivery/Mbox.pm.orig Fri Nov 14 10:04:24 2003
+++ LocalDelivery/Mbox.pm Tue Jun 1 20:47:05 2004
@@ -4,7 +4,7 @@
use Email::Simple;
use Fcntl ':flock';
--- LocalDelivery/Mbox.pm.orig Sun Dec 19 00:06:35 2004
+++ LocalDelivery/Mbox.pm Sun Dec 19 00:09:40 2004
@@ -26,10 +26,10 @@
my $dir = dirname($file);
return if ! -d $dir and not mkpath($dir);
-our $VERSION = "1.07";
+use vars qw($VERSION); $VERSION = "1.07";
- open my $fh, ">> $file" or return;
- $class->getlock($fh) || return;
- seek $fh, 0, 2;
- return $fh;
+ open FH, ">> $file" or return;
+ $class->getlock(\*FH) || return;
+ seek FH, 0, 2;
+ return \*FH;
}
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;
sub _close_fh {