diff options
Diffstat (limited to 'mail/p5-IMAP-Admin/files/patch-aa')
| -rw-r--r-- | mail/p5-IMAP-Admin/files/patch-aa | 22 |
1 files changed, 0 insertions, 22 deletions
diff --git a/mail/p5-IMAP-Admin/files/patch-aa b/mail/p5-IMAP-Admin/files/patch-aa deleted file mode 100644 index ceaa63828fdd..000000000000 --- a/mail/p5-IMAP-Admin/files/patch-aa +++ /dev/null @@ -1,22 +0,0 @@ ---- 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/) { |