1 files changed, 1 insertions, 1 deletions
diff --git a/doio.c b/doio.c
index 0e9987df25..7ed4e975a5 100644
--- a/doio.c
+++ b/doio.c
@@ -2323,7 +2323,7 @@ Perl_vms_start_glob
    (pTHX_ SV *tmpglob,
     IO *io);
 
-    fp = Perl_vms_start_glob(tmpglob, io);
+    fp = Perl_vms_start_glob(aTHX_ tmpglob, io);
 
 #else /* !VMS */
 #ifdef MACOS_TRADITIONAL