X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/7e4e8c89c9cf9e2712eede00d12c71677e17b929..de1254415ffeb03ba71a0802be6f212b10153304:/dosish.h

diff --git a/dosish.h b/dosish.h
index 8628472..0667b54 100644
--- a/dosish.h
+++ b/dosish.h
@@ -18,7 +18,6 @@
 #  define OP_BINARY O_BINARY
 #  define PERL_SYS_INIT(c,v) MALLOC_CHECK_TAINT2(*c,*v) Perl_DJGPP_init(c,v)
 #  define init_os_extras Perl_init_os_extras
-#  include <signal.h>
 #  define HAS_UTIME
 #  define HAS_KILL
    char *djgpp_pathexp (const char*);
@@ -44,7 +43,7 @@
 #endif	/* DJGPP */
 
 #ifndef PERL_SYS_TERM
-#  define PERL_SYS_TERM() OP_REFCNT_TERM; MALLOC_TERM
+#  define PERL_SYS_TERM() HINTS_REFCNT_TERM; OP_REFCNT_TERM; MALLOC_TERM
 #endif
 #define dXSUB_SYS
 
@@ -80,7 +79,12 @@
  *	information.
  */
 #if defined(WIN64) || defined(USE_LARGE_FILES)
+# if defined(__BORLANDC__) /* buk */
+#  include <sys\stat.h>
+#  define Stat_t struct stati64
+# else
 #define Stat_t struct _stati64
+# endif
 #else
 #if defined(UNDER_CE)
 #define Stat_t struct xcestat
@@ -114,6 +118,8 @@
  */
 /* #define ALTERNATE_SHEBANG "#!" / **/
 
+#include <signal.h>
+
 /*
  * fwrite1() should be a routine with the same calling sequence as fwrite(),
  * but which outputs all of the bytes requested as a single stream (unlike
@@ -184,3 +190,6 @@
 #define WUNTRACED             0
 
 #endif
+
+/* Don't go reading from /dev/urandom */
+#define PERL_NO_DEV_RANDOM