--- rxvt-unicode/src/keyboard.C	2006/01/24 19:40:12	1.23
+++ rxvt-unicode/src/keyboard.C	2006/01/25 15:32:48	1.24
@@ -76,7 +76,7 @@
   if (strncmp (str, "command:", 8) == 0)
     rt->cmd_write (str + 8, strlen (str) - 8);
   else if (strncmp (str, "perl:", 5) == 0)
-    HOOK_INVOKE((rt, HOOK_KEYBOARD_COMMAND, DT_STR, str + 5, DT_END));
+    HOOK_INVOKE((rt, HOOK_USER_COMMAND, DT_STR, str + 5, DT_END));
   else
     rt->tt_write (str, strlen (str));
 }