--- rxvt-unicode/src/main.C	2006/01/02 18:20:23	1.156
+++ rxvt-unicode/src/main.C	2006/01/03 18:11:34	1.157
@@ -489,11 +489,13 @@
 #endif
 
 #if ENABLE_PERL
-  rxvt_perl.init ();
+  if (rs[Rs_perl_ext] && *rs[Rs_perl_ext])
+    {
+      rxvt_perl.init ();
+      PERL_INVOKE ((this, HOOK_INIT, DT_END));
+    }
 #endif
 
-  PERL_INVOKE ((this, HOOK_INIT, DT_END));
-
   create_windows (argc, argv);
 
   dDisp;