Change 13056 by jhi@alpha on 2001/11/16 19:18:21
Subject: [Patch Perl@13023] VMS system() warning
From: [EMAIL PROTECTED] (Charles Lane)
Date: Fri, 16 Nov 2001 15:20:11 EST
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/vms/vms.c#93 edit
Differences ...
==== //depot/perl/vms/vms.c#93 (text) ====
Index: perl/vms/vms.c
--- perl/vms/vms.c.~1~ Fri Nov 16 12:30:06 2001
+++ perl/vms/vms.c Fri Nov 16 12:30:06 2001
@@ -5108,12 +5108,6 @@
if (!cmd || !*cmd) {
hadcmd = 0;
sts = lib$spawn(0,0,0,0,0,0,&substs,0,0,0,0,0,0);
- }
- else {
- (void) safe_popen(cmd, "nW", (int *)&sts);
- substs = sts;
- }
-
if (!(sts & 1)) {
switch (sts) {
case RMS$_FNF: case RMS$_DNF:
@@ -5140,8 +5134,13 @@
Strerror(errno));
}
}
+ }
+ else {
+ (void) safe_popen(cmd, "nW", (int *)&sts);
+ }
+
vms_execfree(aTHX);
- return substs;
+ return sts;
} /* end of do_spawn() */
/*}}}*/
End of Patch.
