--- rxvt-unicode/src/rxvtperl.xs	2012/06/07 13:12:08	1.181
+++ rxvt-unicode/src/rxvtperl.xs	2012/06/07 16:30:58	1.182
@@ -384,7 +384,7 @@
       rxvt_pop_locale ();
     }
 
-  if (perl)
+  if (perl && !term->perl.self)
     {
       // runs outside of perls ENV
       term->perl.self = (void *)newSVptr ((void *)term, "urxvt::term");