This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
53e89cf
)
amigaos4: setenv magic should work with __amigaos4__
author
Andy Broad
<andy@broad.ology.org.uk>
Sat, 22 Aug 2015 13:08:30 +0000
(09:08 -0400)
committer
Jarkko 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
patch
|
blob
|
blame
|
history
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;
}