This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix for AmigaOS - inplace operation
authorNorbert Pueschel <pueschel@imsdd.meb.uni-bonn.de>
Sun, 8 Dec 1996 14:33:00 +0000 (15:33 +0100)
committerChip Salzenberg <chip@atlantic.net>
Thu, 19 Dec 1996 04:44:00 +0000 (16:44 +1200)
This patch for doio.c "fixes" inplace operation for AmigaOS.

BTW: 5.003_11 compiles fine and tests ok under AmigaOS, apart from
the unavoidable failures.

p5p-msgid: <77724601@Armageddon.meb.uni-bonn.de>

doio.c

diff --git a/doio.c b/doio.c
index 69cc891..175b6b0 100644 (file)
--- a/doio.c
+++ b/doio.c
@@ -431,7 +431,7 @@ register GV *gv;
 #endif
                }
                else {
-#ifndef DOSISH
+#if !defined(DOSISH) && !defined(AMIGAOS)
 #  ifndef VMS  /* Don't delete; use automatic file versioning */
                    if (UNLINK(oldname) < 0) {
                        warn("Can't rename %s to %s: %s, skipping file",