diff options
| author | Patrick Li <pat@FreeBSD.org> | 2002-03-11 22:05:59 +0000 |
|---|---|---|
| committer | Patrick Li <pat@FreeBSD.org> | 2002-03-11 22:05:59 +0000 |
| commit | 235d17259960d194618e1d26f5f21e19c447f498 (patch) | |
| tree | b8e8f83f42cda78c27bb806e92b7dd4772b607f9 /mail/p5-IMAP-Admin | |
| parent | 7fd4ed84a5a46c7b8efd004ad106f6b64ce99e58 (diff) | |
| download | ports-235d17259960d194618e1d26f5f21e19c447f498.tar.gz ports-235d17259960d194618e1d26f5f21e19c447f498.zip | |
Notes
Diffstat (limited to 'mail/p5-IMAP-Admin')
| -rw-r--r-- | mail/p5-IMAP-Admin/Makefile | 2 | ||||
| -rw-r--r-- | mail/p5-IMAP-Admin/distinfo | 2 | ||||
| -rw-r--r-- | mail/p5-IMAP-Admin/files/patch-aa | 22 |
3 files changed, 2 insertions, 24 deletions
diff --git a/mail/p5-IMAP-Admin/Makefile b/mail/p5-IMAP-Admin/Makefile index 081ba752d805..e162e3f50beb 100644 --- a/mail/p5-IMAP-Admin/Makefile +++ b/mail/p5-IMAP-Admin/Makefile @@ -6,7 +6,7 @@ # PORTNAME= IMAP-Admin -PORTVERSION= 1.6.0 +PORTVERSION= 1.6.1 CATEGORIES= mail perl5 MASTER_SITES= ${MASTER_SITE_PERL_CPAN} MASTER_SITE_SUBDIR= IMAP diff --git a/mail/p5-IMAP-Admin/distinfo b/mail/p5-IMAP-Admin/distinfo index d343d4689372..5a5aaa3bc4d1 100644 --- a/mail/p5-IMAP-Admin/distinfo +++ b/mail/p5-IMAP-Admin/distinfo @@ -1 +1 @@ -MD5 (IMAP-Admin-1.6.0.tar.gz) = 7927389fb6129e9ae05254011c8fc4b6 +MD5 (IMAP-Admin-1.6.1.tar.gz) = 8215f41efca2d96b5e2902b8e413a751 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/) { |