summary refs log tree commit diff stats
path: root/plugins/perl
diff options
context:
space:
mode:
Diffstat (limited to 'plugins/perl')
-rw-r--r--plugins/perl/perl.c4
1 files changed, 3 insertions, 1 deletions
diff --git a/plugins/perl/perl.c b/plugins/perl/perl.c
index ab06dc96..cb563b38 100644
--- a/plugins/perl/perl.c
+++ b/plugins/perl/perl.c
@@ -283,6 +283,8 @@ list_item_to_sv ( hexchat_list *list, const char *const *fields )
 	return sv_2mortal (newRV_noinc ((SV *) hash));
 }
 
+#define WORD_ARRAY_LEN 48
+
 static AV *
 array2av (char *array[])
 {
@@ -293,7 +295,7 @@ array2av (char *array[])
 
 	for (
 		count = 1;
-		count < 32 && array[count] != NULL && array[count][0] != 0;
+		count < WORD_ARRAY_LEN && array[count] != NULL && array[count][0] != 0;
 		count++
 	) {
 		temp = newSVpv (array[count], 0);