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 (file)
--- 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");