From 4119ab016d0560936307b2cf3ff5fda644a62a9a Mon Sep 17 00:00:00 2001 From: Hans Mulder Date: Tue, 21 Jul 1998 05:42:20 -0700 Subject: Fix inplace editing for VMS Message-Id: <3.0.5.32.19980721124220.00a82a20@ous.edu> p4raw-id: //depot/perl@1634 --- doio.c | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/doio.c b/doio.c index 1d852d3c08..ae35c6c385 100644 --- a/doio.c +++ b/doio.c @@ -493,8 +493,13 @@ nextargv(register GV *gv) sv_setpvn(sv,">",!PL_inplace); sv_catpvn(sv,PL_oldname,oldlen); SETERRNO(0,0); /* in case sprintf set errno */ +#ifdef VMS + if (!do_open(PL_argvoutgv,SvPVX(sv),SvCUR(sv),PL_inplace!=0, + O_WRONLY|O_CREAT|O_TRUNC,0,Nullfp)) { +#else if (!do_open(PL_argvoutgv,SvPVX(sv),SvCUR(sv),PL_inplace!=0, O_WRONLY|O_CREAT|OPEN_EXCL,0666,Nullfp)) { +#endif warn("Can't do inplace edit on %s: %s", PL_oldname, Strerror(errno) ); do_close(gv,FALSE); -- cgit v1.2.1