This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
amigaos4: setenv magic should work with __amigaos4__
authorAndy Broad <andy@broad.ology.org.uk>
Sat, 22 Aug 2015 13:08:30 +0000 (09:08 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Sat, 5 Sep 2015 15:12:45 +0000 (11:12 -0400)
The code was protected with AMIGAOS which was AmigaOS 3.

mg.c

diff --git a/mg.c b/mg.c
index 8d95e27..8ebb6a3 100644 (file)
--- a/mg.c
+++ b/mg.c
@@ -1210,7 +1210,7 @@ Perl_magic_setenv(pTHX_ SV *sv, MAGIC *mg)
     }
 #endif
 
-#if !defined(OS2) && !defined(AMIGAOS) && !defined(WIN32) && !defined(MSDOS)
+#if !defined(OS2) && !defined(WIN32) && !defined(MSDOS)
                            /* And you'll never guess what the dog had */
                            /*   in its mouth... */
     if (TAINTING_get) {
@@ -1270,7 +1270,7 @@ Perl_magic_setenv(pTHX_ SV *sv, MAGIC *mg)
            }
        }
     }
-#endif /* neither OS2 nor AMIGAOS nor WIN32 nor MSDOS */
+#endif /* neither OS2 nor WIN32 nor MSDOS */
 
     return 0;
 }