sync/ports
1
0
Fork 0
mirror of https://git.freebsd.org/ports.git synced 2025-07-18 17:59:20 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

Make this port work with -stable perl.

Browse source 
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>
This commit is contained in:
Anton Berezin 2001-08-14 14:26:26 +00:00
parent b8aa76a2df
commit 805daabff8
Notes: svn2git 2021-03-31 03:12:20 +00:00 
svn path=/head/; revision=46242
2 changed files with 23 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
mail/p5-IMAP-Admin/Makefile
View file

@ -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

22
mail/p5-IMAP-Admin/files/patch-aa Normal file
View file

@ -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/) {