Change 12343 by jhi@alpha on 2001/10/05 23:32:07
Subject: patch to ext/IO/lib/IO/Socket/INET.pm fixes Bug ID (20010803.022)
From: David Dyck <[EMAIL PROTECTED]>
Date: Fri, 5 Oct 2001 16:04:43 -0700 (PDT)
Message-ID: <[EMAIL PROTECTED]>
Subject: Re: patch to ext/IO/lib/IO/Socket/INET.pm fixes Bug ID (20010803.022)
From: David Dyck <[EMAIL PROTECTED]>
Date: Fri, 5 Oct 2001 17:27:46 -0700 (PDT)
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/ext/IO/lib/IO/Socket/INET.pm#17 edit
Differences ...
==== //depot/perl/ext/IO/lib/IO/Socket/INET.pm#17 (text) ====
Index: perl/ext/IO/lib/IO/Socket/INET.pm
--- perl/ext/IO/lib/IO/Socket/INET.pm.~1~ Fri Oct 5 17:45:06 2001
+++ perl/ext/IO/lib/IO/Socket/INET.pm Fri Oct 5 17:45:06 2001
@@ -52,9 +52,8 @@
}
if(defined $port) {
- $port =~ s,\((\d+)\)$,,;
- my $defport = $1 || undef;
+ my $defport = ($port =~ s,\((\d+)\)$,,)[0];
my $pnum = ($port =~ m,^(\d+)$,)[0];
@serv = getservbyname($port, $proto[0] || "")
End of Patch.
