--- rxvt-unicode/src/rxvtperl.xs	2006/01/11 00:59:58	1.54
+++ 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;
 
@@ -1278,6 +1282,11 @@
           }
 }
 
+const char *
+rxvt_term::x_resource (const char *name)
+	CLEANUP:
+        SvTAINTED_on (ST (0));
+
 bool
 rxvt_term::option (U32 optval, int set = -1)
 	CODE: