summaryrefslogtreecommitdiff
path: root/vms/vms.c
diff options
context:
space:
mode:
Diffstat (limited to 'vms/vms.c')
-rw-r--r--vms/vms.c16
1 files changed, 8 insertions, 8 deletions
diff --git a/vms/vms.c b/vms/vms.c
index 5ca4d7c0e3..df0aed85b7 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -10953,16 +10953,16 @@ Perl_vms_do_aexec(pTHX_ SV *really,SV **mark,SV **sp)
bool exec_sts;
char * cmd;
- if (sp > mark) {
- if (vfork_called) { /* this follows a vfork - act Unixish */
- vfork_called--;
- if (vfork_called < 0) {
- Perl_warn(aTHX_ "Internal inconsistency in tracking vforks");
- vfork_called = 0;
- }
- else return do_aexec(really,mark,sp);
+ if (vfork_called) { /* this follows a vfork - act Unixish */
+ vfork_called--;
+ if (vfork_called < 0) {
+ Perl_warn(aTHX_ "Internal inconsistency in tracking vforks");
+ vfork_called = 0;
}
+ else return do_aexec(really,mark,sp);
+ }
/* no vfork - act VMSish */
+ if (sp > mark) {
cmd = setup_argstr(aTHX_ really,mark,sp);
exec_sts = vms_do_exec(cmd);
Safefree(cmd); /* Clean up from setup_argstr() */