From: Tom Christiansen <tchrist@perl.com>
Date: Tue, 3 Mar 1998 03:57:08 +0000 (+0000)
Subject: [win32] maintpatch
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=67d7c1675ae115b26a6ef023dbb4fa7edfd4c83f;p=p5sagit%2Fp5-mst-13.2.git

[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
--- 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);