From 60d7e8e32022ee2c3f2808e64a47fd17df746cca Mon Sep 17 00:00:00 2001
From: Berke Viktor <bviktor@hexchat.org>
Date: Sat, 16 Mar 2013 22:41:40 +0100
Subject: [PATCH] Backport XChat r1523

---
 plugins/perl/perl.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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 {