1 files changed, 4 insertions, 0 deletions
diff --git a/perl.c b/perl.c
index 0151338c85..77e3cb7bad 100644
--- a/perl.c
+++ b/perl.c
@@ -1304,7 +1304,11 @@ print \"  \\@INC:\\n    @INC\\n\";");
 	(*xsinit)(aTHXo);	/* in case linked C routines want magical variables */
 #ifndef PERL_MICRO
 #if defined(VMS) || defined(WIN32) || defined(DJGPP) || defined(__CYGWIN__) || defined(EPOC)
+#  if defined(VMS)
+    init_os_extras(aTHXo);
+#  else
     init_os_extras();
+#  endif
 #endif
 #endif