--- rxvt-unicode/src/rxvtperl.xs	2017/07/15 08:16:31	1.242
+++ rxvt-unicode/src/rxvtperl.xs	2018/12/24 07:55:33	1.243
@@ -401,9 +401,10 @@
           "   unshift @INC, '" LIBDIR "';"
           "}"
           ""
-          "use urxvt;"
+          "use urxvt;",
+          0
         };
-        int argc = ecb_array_length (args);
+        int argc = ecb_array_length (args) - 1;
         char **argv = args;
 
         PERL_SYS_INIT3 (&argc, &argv, &environ);