Change 18262 by rgs@rgs-home on 2002/12/08 20:31:42 getservbyport() should accept an empty string as its proto argument (as does getservbyname()). Subject: Re: Is this a bug or am I being stupid? From: Slaven Rezic <[EMAIL PROTECTED]> Date: 08 Dec 2002 01:54:37 +0100 Message-ID: <[EMAIL PROTECTED]>
Affected files ... .... //depot/perl/pp_sys.c#325 edit Differences ... ==== //depot/perl/pp_sys.c#325 (text) ==== Index: perl/pp_sys.c --- perl/pp_sys.c#324~18120~ Thu Nov 7 05:14:21 2002 +++ perl/pp_sys.c Sun Dec 8 12:31:42 2002 @@ -4952,6 +4952,9 @@ char *proto = POPpbytex; unsigned short port = (unsigned short)POPu; + if (proto && !*proto) + proto = Nullch; + #ifdef HAS_HTONS port = PerlSock_htons(port); #endif End of Patch.