[perl #131730] Fix exec PROGRAM LIST with empty LIST on VMS

Only when being Unixish, because I have no idea if
setup_argstr()/vms_do_exec() handle it.

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() */