Change CONTEXT to PERL_CONTEXT throughout source (since the #define

to avoid the Digital UNIX clash no longer works). Changed the #ifdef
in pp_sys.c for whether getnet* function get protoyped (since the
default had a broken prototype for getnetbyaddr).

p4raw-id: //depot/perl@247

1 files changed, 7 insertions, 3 deletions

diff --git a/pp_sys.c b/pp_sys.c
index 3a8701655f..041539c441 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -956,7 +956,7 @@ static OP *
 doform(CV *cv, GV *gv, OP *retop)
 {
     dTHR;
-    register CONTEXT *cx;
+    register PERL_CONTEXT *cx;
     I32 gimme = GIMME_V;
     AV* padlist = CvPADLIST(cv);
     SV** svp = AvARRAY(padlist);
@@ -1024,7 +1024,7 @@ PP(pp_leavewrite)
     PerlIO *fp;
     SV **newsp;
     I32 gimme;
-    register CONTEXT *cx;
+    register PERL_CONTEXT *cx;
 
     DEBUG_f(PerlIO_printf(Perl_debug_log, "left=%ld, todo=%ld\n",
 	  (long)IoLINES_LEFT(io), (long)FmLINES(formtarget)));
@@ -3737,8 +3737,12 @@ PP(pp_gnetent)
     I32 which = op->op_type;
     register char **elem;
     register SV *sv;
-#ifndef DONT_DECLARE_STD
+#ifdef NETDB_H_OMITS_GETNET
     struct netent *getnetbyname(const char *);
+    /*
+     * long is wrong for getnetbyadddr (e.g. on Alpha). POSIX.1g says
+     * in_addr_t but then such systems don't have broken netdb.h anyway.
+     */
     struct netent *getnetbyaddr(long int, int);
     struct netent *getnetent(void);
 #endif