Missed hunk from #16701.

p4raw-id: //depot/perl@16704

diff --git a/vms/vms.c b/vms/vms.c
index 124fd15..52ce6ef 100644 (file)
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -3936,11 +3936,11 @@ mp_getredirection(pTHX_ int *ac, char ***av)
      */
     ap = argv[argc-1];
     if (0 == strcmp("&", ap))
-       exit(background_process(--argc, argv));
+       exit(background_process(aTHX_ --argc, argv));
     if (*ap && '&' == ap[strlen(ap)-1])
        {
        ap[strlen(ap)-1] = '\0';
-       exit(background_process(argc, argv));
+       exit(background_process(aTHX_ argc, argv));
        }
     /*
      * Now we handle the general redirection cases that involve '>', '>>',