diff --git a/plugins/perl/perl.c b/plugins/perl/perl.c
index bda3f6f2..ccc96a64 100644
--- a/plugins/perl/perl.c
+++ b/plugins/perl/perl.c
@@ -1042,7 +1042,7 @@ XS (XS_Xchat_hook_fd)
 
 	dXSARGS;
 
-	if (items != 4) {
+	if (items != 5) {
 		hexchat_print (ph,
 						 "Usage: Xchat::Internal::hook_fd(fd, callback, flags, userdata)");
 	} else {