From: Perl 5 Porters <perl5-porters@africa.nicoh.com>
Date: Sun, 25 Aug 1996 00:24:27 +0000 (+0000)
Subject: perl 5.003_03: perl.h
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3fc1aec64f7c92b9646c7e2f534b41043f54f5ed;p=p5sagit%2Fp5-mst-13.2.git

perl 5.003_03: perl.h

No longer prefer bcmp slightly for comparisons that don't care
about ordering.

Rely on Configure setting SH_PATH.

Change the function name to Pause() instead of pause() to
avoid potential prototype problems.  (This naming convention
is similar to the Fwrite and Fflush macros.)

Fix problems with each() on tied hashes.

Work around crypt prototype problem on NeXT.
---

diff --git a/perl.h b/perl.h
index 427fba7..f69aac9 100644
--- a/perl.h
+++ b/perl.h
@@ -253,13 +253,6 @@
 #   endif
 #endif /* HAS_MEMCMP */
 
-/* XXX we prefer bcmp slightly for comparisons that don't care about ordering */
-#ifndef HAS_BCMP
-#   ifndef bcmp
-#	define bcmp(s1,s2,l) memcmp(s1,s2,l)
-#   endif
-#endif /* HAS_BCMP */
-
 #if !defined(HAS_MEMMOVE) && !defined(memmove)
 #   if defined(HAS_BCOPY) && defined(HAS_SAFE_BCOPY)
 #	define memmove(d,s,l) bcopy(s,d,l)
@@ -678,16 +671,15 @@ typedef I32 (*filter_t) _((int, SV *, int));
 #   endif
 # endif
 #endif
-
-#ifndef SH_PATH			/* May be a variable. */
-#   define SH_PATH BIN_SH
-#ifndef BIN_SH
-#   define BIN_SH "/bin/sh"
-#endif
-#endif
-
-#ifndef HAS_PAUSE
-#define pause() sleep((32767<<16)+32767)
+  
+/* Some unistd.h's give a prototype for pause() even though
+   HAS_PAUSE ends up undefined.  This causes the #define
+   below to be rejected by the compmiler.  Sigh.
+*/
+#ifdef HAS_PAUSE
+#define Pause	pause
+#else
+#define Pause() sleep((32767<<16)+32767)
 #endif
 
 #ifndef IOCPARM_LEN
@@ -923,7 +915,11 @@ char *strcpy(), *strcat();
 #endif
 
 #ifndef __cplusplus
+#ifdef __NeXT__ /* or whatever catches all NeXTs */
+char *crypt ();       /* Maybe more hosts will need the unprototyped version */
+#else
 char *crypt _((const char*, const char*));
+#endif
 char *getenv _((const char*));
 Off_t lseek _((int,Off_t,int));
 char *getlogin _((void));
@@ -1040,6 +1036,7 @@ EXT SV **	curpad;
 
 /* temp space */
 EXT SV *	Sv;
+EXT HE		He;
 EXT XPV *	Xpv;
 EXT char	buf[2048];	/* should be longer than PATH_MAX */
 EXT char	tokenbuf[256];