From: Gerrit P. Haase <gp@familiehaase.de>
Date: Fri, 3 May 2002 20:30:25 +0000 (+0200)
Subject: perl -i clobbers files on Cygwin
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bb16914a1b288b55cfa63f9fac29d11db6d49b56;p=p5sagit%2Fp5-mst-13.2.git

perl -i clobbers files on Cygwin
From: "Gerrit P. Haase" <gerrit@familiehaase.de>
Message-ID: <190109228332.20020503203025@familiehaase.de>

p4raw-id: //depot/perl@16382
---

diff --git a/doio.c b/doio.c
index 102f34f..fdcef27 100644
--- a/doio.c
+++ b/doio.c
@@ -790,7 +790,7 @@ Perl_nextargv(pTHX_ register GV *gv)
 #endif
 		}
 		else {
-#if !defined(DOSISH) && !defined(AMIGAOS)
+#if !defined(DOSISH) && !defined(AMIGAOS) && !defined(__CYGWIN__)
 #  ifndef VMS  /* Don't delete; use automatic file versioning */
 		    if (UNLINK(PL_oldname) < 0) {
 		        if (ckWARN_d(WARN_INPLACE))