[win32] maintpatch

	    #62:  "Fix doc bug in getservbyname() examples"
	  Files:  ext/Socket/Socket.pm

p4raw-id: //depot/win32/perl@637

diff --git a/ext/Socket/Socket.pm b/ext/Socket/Socket.pm
index 51dce59..327ef31 100644 (file)
--- a/ext/Socket/Socket.pm
+++ b/ext/Socket/Socket.pm
@@ -20,7 +20,7 @@ Socket, sockaddr_in, sockaddr_un, inet_aton, inet_ntoa - load the C socket.h def
 
     $proto = getprotobyname('tcp');
     socket(Socket_Handle, PF_INET, SOCK_STREAM, $proto);
-    $port = getservbyname('smtp');
+    $port = getservbyname('smtp', 'tcp');
     $sin = sockaddr_in($port,inet_aton("127.1"));
     $sin = sockaddr_in(7,inet_aton("localhost"));
     $sin = sockaddr_in(7,INADDR_LOOPBACK);