diff options
| author | Perl 5 Porters <perl5-porters@africa.nicoh.com> | 1996-08-25 00:24:27 +0000 |
|---|---|---|
| committer | Andy Dougherty <doughera@lafcol.lafayette.edu> | 1996-08-25 00:24:27 +0000 |
| commit | 3fc1aec64f7c92b9646c7e2f534b41043f54f5ed (patch) | |
| tree | e3559f23f19ce8ebd06735171fc5b45b92cf93dc /perl.h | |
| parent | df5cef82c14dc51876b321cecd014cdb96804a2f (diff) | |
| download | perl-3fc1aec64f7c92b9646c7e2f534b41043f54f5ed.tar.gz | |
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.
Diffstat (limited to 'perl.h')
| -rw-r--r-- | perl.h | 31 |
1 files changed, 14 insertions, 17 deletions
@@ -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]; |