summaryrefslogtreecommitdiff
path: root/doio.c
diff options
context:
space:
mode:
authorCharles Bailey <bailey@HMIVAX.HUMGEN.UPENN.EDU>1996-10-03 16:31:46 -0400
committerAndy Dougherty <doughera@lafcol.lafayette.edu>1996-10-03 16:31:46 -0400
commitedc7bc4959621ea7da76262c92da0b8af51b93fe (patch)
tree5e6adb4b4808b57c9bdfe8f14664cde532e884b4 /doio.c
parent1b1e75229901cec49c3000c9bcfcaa82c6e01a3d (diff)
downloadperl-edc7bc4959621ea7da76262c92da0b8af51b93fe.tar.gz
VMS patches to 5.003_05
Diffstat (limited to 'doio.c')
-rw-r--r--doio.c2
1 files changed, 2 insertions, 0 deletions
diff --git a/doio.c b/doio.c
index af51cd866e..c1de1e00ed 100644
--- 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