From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 2 Nov 1999 22:12:29 +0000 (+0000)
Subject: S_init_interp is a better place to diddle with PL_opargs
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=88dc0f0d4b3e8ced559c2ad1971419074a49337b;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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