summary refs log tree commit diff stats
path: root/plugins/perl
diff options
context:
space:
mode:
authorPatrick Griffis <tingping@tingping.se>2020-09-17 15:50:28 -0700
committerPatrick Griffis <tingping@tingping.se>2020-09-17 15:50:28 -0700
commit453cb7ca79ace05f53667e523dc534bdeb7ddee0 (patch)
tree0a29c139d0d769480b6c13a0ccf384b96590862c /plugins/perl
parent163608d7fd861c2c4911a38f45be484c88626bdc (diff)
Increase max number of words a line can be split into
This may have unintended side-effects but 32 is a very low value
and I was seeing real world bugs being caused by this. Specifically
an ISUPPORT line with more features than this could store.
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);