From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Sat, 7 Mar 1998 09:36:41 +0000 (+0000)
Subject: There has been a 'thaw' in config.h (the ICE has gone ;-))
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9ec7530597a8f6f41be3c8f954450ef40df6c88e;p=p5sagit%2Fp5-mst-13.2.git

There has been a 'thaw' in config.h (the ICE has gone ;-))
So pp_sys.c needs tweaking otherwise it does not believe getservby*()
exist. (Breaks libnet).

p4raw-id: //depot/perl@800
---

diff --git a/pp_sys.c b/pp_sys.c
index 8058fb2..8d8be18 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -3834,7 +3834,7 @@ PP(pp_gprotoent)
 
 PP(pp_gsbyname)
 {
-#ifdef HAS_GETSERVICEBYNAME
+#ifdef HAS_GETSERVBYNAME
     return pp_gservent(ARGS);
 #else
     DIE(no_sock_func, "getservbyname");
@@ -3843,7 +3843,7 @@ PP(pp_gsbyname)
 
 PP(pp_gsbyport)
 {
-#ifdef HAS_GETSERVICEBYPORT
+#ifdef HAS_GETSERVBYPORT
     return pp_gservent(ARGS);
 #else
     DIE(no_sock_func, "getservbyport");