[ViewVC] Diff of: cvs/App-Staticperl/mkbundle

Comparing App-Staticperl/mkbundle (file contents):
Revision 1.17 by root, Wed Feb 9 09:52:27 2011 UTC vs.
Revision 1.18 by root, Wed Feb 9 10:23:37 2011 UTC

 #include <XSUB.h>
 /* public API */
 EXTERN_C PerlInterpreter *staticperl;
 EXTERN_C void staticperl_xs_init (pTHX);
-EXTERN_C void staticperl_init (void);
+EXTERN_C void staticperl_init (XSINIT_t xs_init); /* argument can be 0 */
 EXTERN_C void staticperl_cleanup (void);
 EOF
 }
    print $fh "  newXS (\"$pname\::$bootstrap\", boot_$cname, file);\n";
 }
 print $fh <<EOF;
   Perl_av_create_and_unshift_one (&PL_preambleav, newSVpv (bootstrap, sizeof (bootstrap) - 1));
+  if (PL_oldname)
+    ((XSINIT_t)PL_oldname)(aTHX);
 }
 EOF
 #############################################################################
 # optional perl_init/perl_destroy
 EOF
 } else {
    print $fh <<EOF;
 EXTERN_C void
-staticperl_init (void)
+staticperl_init (XSINIT_t xs_init)
 {
   static char *args[] = {
     "staticperl",
     "-e",
     "0"
   PERL_SYS_INIT3 (&argc, &argv, &environ);
   staticperl = perl_alloc ();
   perl_construct (staticperl);
   PL_origalen = 1;
   PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
+  PL_oldname = (char *)xs_init;
   perl_parse (staticperl, staticperl_xs_init, argc, argv, environ);
   perl_run (staticperl);
 }

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines