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.
