--- rxvt-unicode/src/rxvtperl.xs	2006/01/17 16:22:41	1.71
+++ rxvt-unicode/src/rxvtperl.xs	2006/01/18 08:33:34	1.72
@@ -404,7 +404,13 @@
 
       char *argv[] = {
         "",
-        "-edo '" LIBDIR "/urxvt.pm' or ($@ and die $@) or exit 1",
+        "-e"
+        "BEGIN {"
+        "   urxvt->bootstrap;"
+        "   unshift @INC, '" LIBDIR "';"
+        "}"
+        ""
+        "use urxvt;"
       };
 
       perl = perl_alloc ();