--- rxvt-unicode/src/main.C	2006/01/04 04:42:45	1.159
+++ rxvt-unicode/src/main.C	2006/01/04 05:35:34	1.160
@@ -489,7 +489,9 @@
 #endif
 
 #if ENABLE_PERL
-  if (rs[Rs_perl_ext] && *rs[Rs_perl_ext])
+  if ((rs[Rs_perl_ext_1] && *rs[Rs_perl_ext_1])
+      || (rs[Rs_perl_ext_2] && *rs[Rs_perl_ext_2])
+      || (rs[Rs_perl_eval] && *rs[Rs_perl_eval]))
     {
       rxvt_perl.init ();
       PERL_INVOKE ((this, HOOK_INIT, DT_END));