From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sat, 14 Feb 1998 01:00:15 +0000 (+0000)
Subject: [asperl] bring ASPerl uptodate with mainline changes
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9e67d94e6e4396a78a2012441f9359240f5b4bdd;p=p5sagit%2Fp5-mst-13.2.git

[asperl] bring ASPerl uptodate with mainline changes

p4raw-id: //depot/asperl@524
---

9e67d94e6e4396a78a2012441f9359240f5b4bdd
diff --cc pp_sys.c
index 8b0b557,ce5af57..55d00ed
--- a/pp_sys.c
+++ b/pp_sys.c
@@@ -3693,14 -3689,14 +3689,14 @@@ PP(pp_gnetent
      struct netent *nent;
  
      if (which == OP_GNBYNAME)
 -	nent = getnetbyname(POPp);
 +	nent = PerlSock_getnetbyname(POPp);
      else if (which == OP_GNBYADDR) {
  	int addrtype = POPi;
- 	Getnbadd_net_t addr = (Getnbadd_net_t) U_L(POPn);
+ 	Netdb_net_t addr = (Netdb_net_t) U_L(POPn);
 -	nent = getnetbyaddr(addr, addrtype);
 +	nent = PerlSock_getnetbyaddr(addr, addrtype);
      }
      else
 -	nent = getnetent();
 +	nent = PerlSock_getnetent();
  
      EXTEND(SP, 4);
      if (GIMME != G_ARRAY) {