--- rxvt-unicode/src/init.C	2006/01/19 09:47:15	1.149
+++ rxvt-unicode/src/init.C	2006/01/20 12:16:28	1.151
@@ -205,10 +205,6 @@
     "_XROOTPMAP_ID",
     "ESETROOT_PMAP_ID",
 #endif
-#ifdef OFFIX_DND
-    "DndProtocol",
-    "DndSelection",
-#endif
 #if ENABLE_XEMBED
     "_XEMBED",
     "_XEMBED_INFO",
@@ -347,6 +343,19 @@
 
   free (r_argv);
 
+#if ENABLE_PERL
+  if (!rs[Rs_perl_ext_1])
+    rs[Rs_perl_ext_1] = "default";
+
+  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 (this);
+      HOOK_INVOKE ((this, HOOK_INIT, DT_END));
+    }
+#endif
+
   /*
    * set any defaults not already set
    */