This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
There has been a 'thaw' in config.h (the ICE has gone ;-))
authorNick Ing-Simmons <nik@tiuk.ti.com>
Sat, 7 Mar 1998 09:36:41 +0000 (09:36 +0000)
committerNick Ing-Simmons <nik@tiuk.ti.com>
Sat, 7 Mar 1998 09:36:41 +0000 (09:36 +0000)
So pp_sys.c needs tweaking otherwise it does not believe getservby*()
exist. (Breaks libnet).

p4raw-id: //depot/perl@800

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