From 67d7c1675ae115b26a6ef023dbb4fa7edfd4c83f Mon Sep 17 00:00:00 2001
From: Tom Christiansen <tchrist@perl.com>
Date: Tue, 3 Mar 1998 03:57:08 +0000
Subject: [PATCH] [win32] maintpatch 	    #62:  "Fix doc bug in
 getservbyname() examples" 	  Files:  ext/Socket/Socket.pm

p4raw-id: //depot/win32/perl@637
---
 ext/Socket/Socket.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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