This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Handle empty list in Perl_vms_do_aexec.
authorCraig A. Berry <craigberry@mac.com>
Tue, 14 Nov 2017 13:13:19 +0000 (07:13 -0600)
committerCraig A. Berry <craigberry@mac.com>
Tue, 14 Nov 2017 13:30:30 +0000 (07:30 -0600)
Since 2fcab33080e this is now expected and tested for, so do
what other platforms do.

vms/vms.c

index d2d9308..83e38f1 100644 (file)
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -10954,6 +10954,7 @@ Perl_vms_do_aexec(pTHX_ SV *really,SV **mark,SV **sp)
     return exec_sts;
   }
 
+  SETERRNO(ENOENT, RMS_FNF);
   return FALSE;
 }  /* end of vms_do_aexec() */
 /*}}}*/