perl -i clobbers files on Cygwin

[perl5.git] / doio.c

diff --git a/doio.c b/doio.c
index 102f34f..fdcef27 100644 (file)
--- 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))