DG/UX tweaks to perl.h:

	Subject: [PATCH] _56 on dgux without threads

p4raw-id: //depot/perl@407

diff --git a/perl.h b/perl.h
index 9138ba6..bec110c 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -113,7 +113,8 @@ register struct op *op asm(stringify(OP_IN_REGISTER));
 # define STANDARD_C 1
 #endif
 
-#if defined(__cplusplus) || defined(WIN32) || defined(__sgi) || defined(OS2)
+#if defined(__cplusplus) || defined(WIN32) || defined(__sgi) || defined(OS2) \
+       || defined(__DGUX)
 # define DONT_DECLARE_STD 1
 #endif
 
@@ -1382,7 +1383,9 @@ int runops_debug _((void));
 
 /* VMS doesn't use environ array and NeXT has problems with crt0.o globals */
 #if !defined(VMS) && !(defined(NeXT) && defined(__DYNAMIC__))
-#if !defined(DONT_DECLARE_STD) || (defined(__svr4__) && defined(__GNUC__) && defined(sun)) || defined(__sgi)
+#if !defined(DONT_DECLARE_STD) \
+       || (defined(__svr4__) && defined(__GNUC__) && defined(sun)) \
+       || defined(__sgi) || defined(__DGUX)
 extern char ** environ;        /* environment variables supplied via exec */
 #endif
 #else