--- rxvt-unicode/src/init.C	2006/01/18 19:43:51	1.148
+++ rxvt-unicode/src/init.C	2006/01/21 22:38:05	1.152
@@ -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
    */
@@ -1437,12 +1446,14 @@
         _exit (EXIT_FAILURE);
 
       default:
-#if UTMP_SUPPORT
         if (!OPTION (Opt_utmpInhibit))
           pty->login (cmd_pid, OPTION (Opt_loginShell), rs[Rs_display_name]);
-#endif
 
         pty->close_tty ();
+
+        child_ev.start (cmd_pid);
+
+        HOOK_INVOKE ((this, HOOK_CHILD_START, DT_INT, cmd_pid, DT_END));
         break;
     }
 }