1 files changed, 6 insertions, 6 deletions
diff --git a/perl.c b/perl.c
index 067b1f3fff..0651279ff6 100644
--- 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