X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=unixish.h;h=5f95ba5cadce584e6036fcb5412ae20caf57c449;hb=25ff0154ccf606eb5512a8cde622caf50e20fba3;hp=707092ccbafe225ffc2dd75ff0f8453d8b7803b4;hpb=eb1102fcca2230364ceadea29bd8e87ee51b15fa;p=p5sagit%2Fp5-mst-13.2.git diff --git a/unixish.h b/unixish.h index 707092c..5f95ba5 100644 --- a/unixish.h +++ b/unixish.h @@ -1,6 +1,7 @@ /* unixish.h * - * Copyright (c) 1997-2002, Larry Wall + * Copyright (C) 1993, 1994, 1995, 1996, 1997, 1999, 2000, 2001, 2002, + * 2003, 2006 by Larry Wall and others * * You may distribute under the terms of either the GNU General Public * License or the Artistic License, as specified in the README file. @@ -20,27 +21,27 @@ * This symbol, if defined, indicates that the ioctl() routine is * available to set I/O characteristics */ -#define HAS_IOCTL / **/ +#define HAS_IOCTL /**/ /* HAS_UTIME: * This symbol, if defined, indicates that the routine utime() is * available to update the access and modification times of files. */ -#define HAS_UTIME / **/ +#define HAS_UTIME /**/ /* HAS_GROUP * This symbol, if defined, indicates that the getgrnam() and * getgrgid() routines are available to get group entries. * The getgrent() has a separate definition, HAS_GETGRENT. */ -#define HAS_GROUP / **/ +#define HAS_GROUP /**/ /* HAS_PASSWD * This symbol, if defined, indicates that the getpwnam() and * getpwuid() routines are available to get password entries. * The getpwent() has a separate definition, HAS_GETPWENT. */ -#define HAS_PASSWD / **/ +#define HAS_PASSWD /**/ #define HAS_KILL #define HAS_WAIT @@ -67,7 +68,7 @@ * This symbol is defined if this system has a stat structure declaring * st_rdev */ -#define USE_STAT_RDEV / **/ +#define USE_STAT_RDEV /**/ /* ACME_MESS: * This symbol, if defined, indicates that error messages should be @@ -102,9 +103,7 @@ */ /* #define ALTERNATE_SHEBANG "#!" / **/ -#if !defined(NSIG) || defined(M_UNIX) || defined(M_XENIX) || defined(__NetBSD__) || defined(__FreeBSD__) || defined(__OpenBSD__) # include -#endif #ifndef SIGABRT # define SIGABRT SIGILL @@ -128,16 +127,23 @@ #define Mkdir(path,mode) mkdir((path),(mode)) #ifndef PERL_SYS_INIT -# define PERL_SYS_INIT(c,v) PERL_FPU_INIT MALLOC_INIT +# define PERL_SYS_INIT(c,v) \ + MALLOC_CHECK_TAINT2(*c,*v) PERL_FPU_INIT; PERLIO_INIT; MALLOC_INIT #endif #ifndef PERL_SYS_TERM -#define PERL_SYS_TERM() OP_REFCNT_TERM; MALLOC_TERM +# define PERL_SYS_TERM() \ + if (!PL_veto_cleanup) { \ + HINTS_REFCNT_TERM; OP_REFCNT_TERM; PERLIO_TERM; MALLOC_TERM; \ + } + #endif #define BIT_BUCKET "/dev/null" #define dXSUB_SYS +#ifndef NO_ENVIRON_ARRAY #define USE_ENVIRON_ARRAY +#endif