diff options
| author | tobez <tobez@FreeBSD.org> | 2001-08-14 14:26:26 +0000 |
|---|---|---|
| committer | tobez <tobez@FreeBSD.org> | 2001-08-14 14:26:26 +0000 |
| commit | e9f43138d37938b6c5eae025244375322efa21d6 (patch) | |
| tree | 4a60e6e7fe1e4702ebe567365bf802058c12ba58 /mail | |
| parent | fe30c9c26c134a85aacbf0478ba90bb4895c3097 (diff) | |
| download | FreeBSD-ports-e9f43138d37938b6c5eae025244375322efa21d6.zip FreeBSD-ports-e9f43138d37938b6c5eae025244375322efa21d6.tar.gz | |
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>
Diffstat (limited to 'mail')
| -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 3275d50..5da398d 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 0000000..ceaa638 --- /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/) { |
