diff options
| author | David Dyck <david.dyck@fluke.com> | 2001-10-05 09:04:43 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-05 23:32:07 +0000 |
| commit | 276fd468aa555e31b01c2ef79370cbc782cc03cf (patch) | |
| tree | e58e0371c25732cd3daa267a1d9b5be1c10fe150 /ext | |
| parent | 73ddec28c1d4631f79a3149320fdaa9f3027d705 (diff) | |
| download | perl-276fd468aa555e31b01c2ef79370cbc782cc03cf.tar.gz | |
patch to ext/IO/lib/IO/Socket/INET.pm fixes Bug ID (20010803.022)
Date: Fri, 5 Oct 2001 16:04:43 -0700 (PDT)
Message-ID: <Pine.LNX.4.33.0110051548340.9856-100000@dd.tc.fluke.com>
Subject: Re: patch to ext/IO/lib/IO/Socket/INET.pm fixes Bug ID (20010803.022)
From: David Dyck <dcd@tc.fluke.com>
Date: Fri, 5 Oct 2001 17:27:46 -0700 (PDT)
Message-ID: <Pine.LNX.4.33.0110051714350.14248-100000@dd.tc.fluke.com>
p4raw-id: //depot/perl@12343
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/IO/lib/IO/Socket/INET.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/ext/IO/lib/IO/Socket/INET.pm b/ext/IO/lib/IO/Socket/INET.pm index 139163be55..7083b99fc5 100644 --- a/ext/IO/lib/IO/Socket/INET.pm +++ b/ext/IO/lib/IO/Socket/INET.pm @@ -52,9 +52,8 @@ sub _sock_info { } 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] || "") |