S_init_interp is a better place to diddle with PL_opargs

than perl_construct.

p4raw-id: //depot/cfgperl@4510

diff --git a/perl.c b/perl.c
index 067b1f3..0651279 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -220,12 +220,6 @@ perl_construct(pTHXx)
     PL_fdpid = newAV();                        /* for remembering popen pids by fd */
     PL_modglobal = newHV();            /* pointers to per-interpreter module globals */
 
-#ifdef MACOS_TRADITIONAL
-    /* In MacOS time() already returns values in excess of 2**31-1,
-     * therefore we patch the integerness away. */
-    PL_opargs[OP_TIME] &= ~OA_RETINTEGER;
-#endif
-
     ENTER;
 }
 
@@ -2014,6 +2008,12 @@ S_init_interp(pTHX)
 #  endif
 #endif
 
+#ifdef MACOS_TRADITIONAL
+  /* In MacOS time() already returns values in excess of 2**31-1,
+   * therefore we patch the integerness away. */
+  PL_opargs[OP_TIME] &= ~OA_RETINTEGER;
+#endif
+
 }
 
 STATIC void