This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
amigaos4: no env in main()
authorAndy Broad <andy@broad.ology.org.uk>
Fri, 14 Aug 2015 02:09:41 +0000 (22:09 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Sat, 5 Sep 2015 15:12:45 +0000 (11:12 -0400)
perl.h

diff --git a/perl.h b/perl.h
index 86ed075..b040291 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -6555,7 +6555,7 @@ extern void moncontrol(int);
 
 #define IS_SAFE_PATHNAME(p, len, op_name) IS_SAFE_SYSCALL((p), (len), "pathname", (op_name))
 
-#if defined(OEMVS)
+#if defined(OEMVS) || defined(__amigaos4__)
 #define NO_ENV_ARRAY_IN_MAIN
 #endif