diff options
| author | tobez <tobez@FreeBSD.org> | 2001-08-14 22:26:26 +0800 |
|---|---|---|
| committer | tobez <tobez@FreeBSD.org> | 2001-08-14 22:26:26 +0800 |
| commit | e9f43138d37938b6c5eae025244375322efa21d6 (patch) | |
| tree | 4a60e6e7fe1e4702ebe567365bf802058c12ba58 /mail/p5-IMAP-Admin/files | |
| parent | fe30c9c26c134a85aacbf0478ba90bb4895c3097 (diff) | |
| download | freebsd-ports-gnome-e9f43138d37938b6c5eae025244375322efa21d6.tar.gz freebsd-ports-gnome-e9f43138d37938b6c5eae025244375322efa21d6.tar.zst freebsd-ports-gnome-e9f43138d37938b6c5eae025244375322efa21d6.zip | |
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/p5-IMAP-Admin/files')
| -rw-r--r-- | mail/p5-IMAP-Admin/files/patch-aa | 22 |
1 files changed, 22 insertions, 0 deletions
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/) { |