develooper Front page | perl.perl5.porters | Postings from March 2001

Re: [PATCH 5.7.0] compiling on OS/2: 5.6.1 too

From:
Ilya Zakharevich
Date:
March 2, 2001 22:53
Subject:
Re: [PATCH 5.7.0] compiling on OS/2: 5.6.1 too
Message ID:
20010303015352.A11741@math.ohio-state.edu
On Sun, Dec 31, 2000 at 12:19:24AM -0500, Ilya Zakharevich wrote:
> This patch does not fix new bugs introduced by IV-preservation
> madness.  Also, the second chunk may cause problems for other
> platforms needing makedef.pl.  But with it applied, perl compiles on EMX.

A similar patch is needed for 5.6.1 (only the first two chunks omited).

I put it below:

--- ./opcode.pl~~	Tue Dec  5 05:39:46 2000
+++ ./opcode.pl	Wed Dec 27 20:17:42 2000
@@ -1,5 +1,6 @@
 #!/usr/bin/perl
 
+chmod 0666, "opcode.h", "opnames.h";
 unlink "opcode.h", "opnames.h";
 open(OC, ">opcode.h") || die "Can't create opcode.h: $!\n";
 open(ON, ">opnames.h") || die "Can't create opnames.h: $!\n";
--- ./os2/os2.c~~	Mon Dec  4 20:49:36 2000
+++ ./os2/os2.c	Wed Dec 27 20:26:46 2000
@@ -1162,10 +1162,13 @@ tcp1(char *name, int arg)
 	((void (*)(int)) fcn) (arg);
 }
 
+#ifndef HAS_GETHOSTENT		/* Older versions of EMX did not have it... */
 void *	gethostent()	{ return tcp0("GETHOSTENT");  }
 void *	getnetent()	{ return tcp0("GETNETENT");   }
 void *	getprotoent()	{ return tcp0("GETPROTOENT"); }
 void *	getservent()	{ return tcp0("GETSERVENT");  }
+#endif
+
 void	sethostent(x)	{ tcp1("SETHOSTENT",  x); }
 void	setnetent(x)	{ tcp1("SETNETENT",   x); }
 void	setprotoent(x)	{ tcp1("SETPROTOENT", x); }




nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About