Changeset 21673 for src/perl5

Timestamp:

08/01/08 13:56:05 (5 months ago)

Author:

audreyt

Message:

* Import Pugs 6.2.13.11 from Hackage into our source tree.
* Highlights:

• Much faster startup time
• Slightly faster compilation time (mostly due to refactored Pugs.AST.Internals)
• Portable-to-Win32 readline thanks to Haskeline

Location:

src/perl5

Files:

• p5embed.c (modified) (2 diffs)
• pugsembed.c (modified) (2 diffs)

src/perl5/p5embed.c

@@ -304 +304 @@
 #endif /* HAS_PROCSELFEXE */
 
+#    if defined(__APPLE__)
+#      include <crt_externs.h>  /* for the env array */
+#      define p5embed_environ (*_NSGetEnviron())
+#    else
+#      define p5embed_environ environ
+#    endif
+
 PerlInterpreter *
 perl5_init ( int argc, char **argv )
@@ -314 +321 @@
 #endif
 #ifdef PERL_SYS_INIT3
-    PERL_SYS_INIT3(&argc,&argv,&environ);
+    PERL_SYS_INIT3(&argc,&argv,&p5embed_environ);
 #endif
 

src/perl5/pugsembed.c

@@ -126 +126 @@
 {
     SV** rv = hv_fetch(PL_modglobal, "PugsEnv", 7, 0);
+    IV tmp;
     if (rv == NULL) {
         Perl_croak(aTHX_ "PugsEnv uninitialized; please call pugs_setenv() first. (hate software so much.)");
     }
-    IV tmp = SvIV((SV*)SvRV(*rv));
+    tmp = SvIV((SV*)SvRV(*rv));
     return ((Val *)tmp);
 }
@@ -135 +136 @@
 void pugs_setenv ( Val *env )
 {
+    SV *sv;
     if (env == NULL) { return; }
 
-    SV *sv = newSV(0);
+    sv = newSV(0);
     sv_setref_pv(sv, "pugs", env);
     hv_store(PL_modglobal, "PugsEnv", 7, sv, 0);