From: Hans Mulder <hansmu@xs4all.nl>
Date: Tue, 21 Jul 1998 12:42:20 +0000 (-0700)
Subject: Fix inplace editing for VMS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4119ab016d0560936307b2cf3ff5fda644a62a9a;p=p5sagit%2Fp5-mst-13.2.git

Fix inplace editing for VMS

	Message-Id: <3.0.5.32.19980721124220.00a82a20@ous.edu>

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

diff --git a/doio.c b/doio.c
index 1d852d3..ae35c6c 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);