--- rxvt-unicode/src/keyboard.C	2006/01/04 04:42:45	1.19
+++ rxvt-unicode/src/keyboard.C	2006/01/06 01:16:58	1.20
@@ -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)
-    PERL_INVOKE((rt, HOOK_KEYBOARD_COMMAND, DT_STRING, str + 5, DT_END));
+    HOOK_INVOKE((rt, HOOK_KEYBOARD_COMMAND, DT_STRING, str + 5, DT_END));
   else
     rt->tt_write (str, strlen (str));
 }