This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
amigaos4: needs inplace edit backup file
authorAndy Broad <andy@broad.ology.org.uk>
Sat, 22 Aug 2015 13:05:21 +0000 (09:05 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Sat, 5 Sep 2015 15:12:45 +0000 (11:12 -0400)
Use __amigaos4__ define instead of AMIGAOS.

doio.c

diff --git a/doio.c b/doio.c
index d8ea076..f41a559 100644 (file)
--- a/doio.c
+++ b/doio.c
@@ -943,7 +943,7 @@ Perl_nextargv(pTHX_ GV *gv, bool nomagicopen)
 #endif
                }
                else {
-#if !defined(DOSISH) && !defined(AMIGAOS)
+#if !defined(DOSISH) && !defined(__amigaos4__)
 #  ifndef VMS  /* Don't delete; use automatic file versioning */
                    if (UNLINK(PL_oldname) < 0) {
                        Perl_ck_warner_d(aTHX_ packWARN(WARN_INPLACE),