*** empty log message ***

diff --git a/Changes b/Changes
index ae16c3ac413014a02338d58687c3d8688172487c..96200c4a867467b51c9af46ba61ceddf0edbe64d 100644 (file)
--- a/Changes
+++ b/Changes
@@ -21,6 +21,7 @@ DUMB: support tex fonts
 
 TODO:   /*TODO: the xlceararea/xfillrectangle below don't take scroll offste into account, ask mikachu for details */
 
+       - perl 5.10 needs PELR_SYS_INIT3 on hppa.
        - ignore byte-order marks and do not treat them like combining characters.
         - fix build issue when CURSOR_BLINK is not defined (Emanuele Giaquinta).
         - do some µ-optimisations to the character fast path.

diff --git a/src/rxvtperl.xs b/src/rxvtperl.xs
index 8fbd6355c21979ef96384ff102b330c2d5b99b79..6cf7e8334f587cd2a8d8cd7a034166d92f8749ad 100644 (file)
--- a/src/rxvtperl.xs
+++ b/src/rxvtperl.xs
@@ -312,6 +312,7 @@ rxvt_perl_interp::~rxvt_perl_interp ()
     {
       perl_destruct (perl);
       perl_free (perl);
+      PERL_SYS_TERM ();
     }
 }
 
@@ -325,7 +326,7 @@ rxvt_perl_interp::init (rxvt_term *term)
       perl_environ = rxvt_environ;
       swap (perl_environ, environ);
 
-      char *argv[] = {
+      char *args[] = {
         "",
         "-e"
         "BEGIN {"
@@ -335,11 +336,14 @@ rxvt_perl_interp::init (rxvt_term *term)
         ""
         "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");