--- rxvt-unicode/src/main.C	2006/01/11 19:55:34	1.173
+++ rxvt-unicode/src/main.C	2006/01/12 00:35:39	1.175
@@ -525,6 +525,7 @@
         }
 #endif
       rxvt_perl.init ();
+      setlocale (LC_CTYPE, curlocale); // perl init destroys this info
       HOOK_INVOKE ((this, HOOK_INIT, DT_END));
     }
 #endif
@@ -617,9 +618,13 @@
   }
 } sig_handlers;
 
+char **rxvt_environ; // startup environment
+
 void
 rxvt_init ()
 {
+  rxvt_environ = environ;
+
   /*
    * Save and then give up any super-user privileges
    * If we need privileges in any area then we must specifically request it.