[ViewVC] Diff of: cvs/rxvt-unicode/src/rxvtperl.xs

Comparing rxvt-unicode/src/rxvtperl.xs (file contents):
Revision 1.124 by root, Thu Jul 31 03:24:08 2008 UTC vs.
Revision 1.125 by root, Fri Aug 22 15:36:45 2008 UTC

 {
   if (perl)
     {
       perl_destruct (perl);
       perl_free (perl);
+      PERL_SYS_TERM ();
     }
 }
 void
 rxvt_perl_interp::init (rxvt_term *term)
       rxvt_push_locale (""); // perl init destroys current locale
       perl_environ = rxvt_environ;
       swap (perl_environ, environ);
-      char *argv[] = {
+      char *args[] = {
         "",
         "-e"
         "BEGIN {"
         "   urxvt->bootstrap;"
         "   unshift @INC, '" LIBDIR "';"
         "}"
         ""
         "use urxvt;"
       };
+      int argc = sizeof (args) / sizeof (args[0]);
+      char **argv = args;
+      PERL_SYS_INIT3 (&argc, &argv, &environ);
       perl = perl_alloc ();
       perl_construct (perl);
-      if (perl_parse (perl, xs_init, 2, argv, (char **)NULL)
+      if (perl_parse (perl, xs_init, argc, argv, (char **)NULL)
           || perl_run (perl))
         {
           rxvt_warn ("unable to initialize perl-interpreter, continuing without.\n");
           perl_destruct (perl);

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