perl 5.003_06: t/lib/complex.t

[p5sagit/p5-mst-13.2.git] / doio.c

diff --git a/doio.c b/doio.c
index af51cd8..c1de1e0 100644 (file)
--- a/doio.c
+++ b/doio.c
@@ -432,12 +432,14 @@ register GV *gv;
                }
                else {
 #ifndef DOSISH
+#  ifndef VMS  /* Don't delete; use automatic file versioning */
                    if (UNLINK(oldname) < 0) {
                        warn("Can't rename %s to %s: %s, skipping file",
                          oldname, SvPVX(sv), Strerror(errno) );
                        do_close(gv,FALSE);
                        continue;
                    }
+#  endif
 #else
                    croak("Can't do inplace edit without backup");
 #endif