diff options
| author | Anton Berezin <tobez@FreeBSD.org> | 2001-08-14 14:26:26 +0000 |
|---|---|---|
| committer | Anton Berezin <tobez@FreeBSD.org> | 2001-08-14 14:26:26 +0000 |
| commit | 805daabff8a93519a7bf84041ef84fe6c3dcaedf (patch) | |
| tree | fb80b11ae0dc3a4eeaf4bd69f0e1862c7f930db7 /mail/p5-IMAP-Admin | |
| parent | Upgrade to 5.05 TP1. (diff) | |
Make this port work with -stable perl.
Fix a "use of uninitialised value" warning.
PR: 29161, 29302
Submitted by: martti.kuparinen@iki.fi (maintainer),
ian j hart <ianjhart@freeloader.freeserve.co.uk>
Notes
Notes:
svn path=/head/; revision=46242
Diffstat (limited to 'mail/p5-IMAP-Admin')
| -rw-r--r-- | mail/p5-IMAP-Admin/Makefile | 1 | ||||
| -rw-r--r-- | mail/p5-IMAP-Admin/files/patch-aa | 22 |
2 files changed, 23 insertions, 0 deletions
diff --git a/mail/p5-IMAP-Admin/Makefile b/mail/p5-IMAP-Admin/Makefile index 3275d50a7c03..5da398d9e501 100644 --- a/mail/p5-IMAP-Admin/Makefile +++ b/mail/p5-IMAP-Admin/Makefile @@ -7,6 +7,7 @@ PORTNAME= IMAP-Admin PORTVERSION= 1.4.3 +PORTREVISION= 1 CATEGORIES= mail perl5 MASTER_SITES= ${MASTER_SITE_PERL_CPAN} MASTER_SITE_SUBDIR= IMAP diff --git a/mail/p5-IMAP-Admin/files/patch-aa b/mail/p5-IMAP-Admin/files/patch-aa new file mode 100644 index 000000000000..ceaa63828fdd --- /dev/null +++ b/mail/p5-IMAP-Admin/files/patch-aa @@ -0,0 +1,22 @@ +--- Admin.pm.orig Wed Nov 29 07:06:44 2000 ++++ Admin.pm Tue Aug 14 16:17:12 2001 +@@ -6,7 +6,7 @@ + use Carp; + use IO::Select; + use IO::Socket; +-use IO::Socket::INET; ++#use IO::Socket::INET; + use Text::ParseWords qw(parse_line); + use Cwd; + +@@ -463,7 +463,9 @@ + print $fh qq{try GETACL "$mailbox"\n}; + delete $self->{'acl'}; + my $try = $self->_read; +- while ($try =~ /^\* ACL\s+(?:\".*?\"|.*?)\s+((\".*?\"|.*?)(?:\s)(?{ push @{$self->{'acl'}}, $2; }))+(\w+)(?{ push @{$self->{'acl'}}, $3; })$/) { ++ while ($try =~ /^\* ACL\s+(?:\".*?\"|.*?)\s+((\".*?\"|.*?)(?:\s))+(\w+)$/) { ++ push (@{$self->{'acl'}}, $2); ++ push (@{$self->{'acl'}}, $3); + $try = $self->_read; + } + if ($try =~ /^try OK/) { |