--- rxvt-unicode/src/rxvtperl.xs	2006/01/11 02:13:56	1.55
+++ rxvt-unicode/src/rxvtperl.xs	2006/01/12 00:35:39	1.56
@@ -413,6 +413,8 @@
 {
   if (!perl)
     {
+      temp_environ temp_environ(rxvt_environ);
+
       char *argv[] = {
         "",
         "-T",
@@ -482,6 +484,8 @@
         return false;
     }
 
+  temp_environ temp_environ(rxvt_environ);
+
   dSP;
   va_list ap;