diff options
| -rwxr-xr-x | autogen.sh | 3 | ||||
| -rw-r--r-- | src/perl/irc/Irc.xs | 2 | ||||
| -rw-r--r-- | src/perl/perl-common.c | 4 |
3 files changed, 6 insertions, 3 deletions
@@ -145,3 +145,6 @@ if test x$NOCONFIGURE = x; then else echo Skipping configure process. fi + +# make sure perl hashes have correct length +find src/perl -name *.c -o -name *.xs | xargs grep -n hv_store | perl -ne 'if (/"(\w+)",\s*(\d+)/) { print unless $2 == length $1 }' diff --git a/src/perl/irc/Irc.xs b/src/perl/irc/Irc.xs index b0588cec..e5a662a4 100644 --- a/src/perl/irc/Irc.xs +++ b/src/perl/irc/Irc.xs @@ -106,7 +106,7 @@ static void perl_netsplit_fill_hash(HV *hv, NETSPLIT_REC *netsplit) av_push(av, plain_bless(tmp->data, "Irssi::Irc::Netsplitchannel")); } - hv_store(hv, "channels", 7, newRV_noinc((SV*)av), 0); + hv_store(hv, "channels", 8, newRV_noinc((SV*)av), 0); } static void perl_netsplit_server_fill_hash(HV *hv, NETSPLIT_SERVER_REC *rec) diff --git a/src/perl/perl-common.c b/src/perl/perl-common.c index c5c5175a..72fc557c 100644 --- a/src/perl/perl-common.c +++ b/src/perl/perl-common.c @@ -330,7 +330,7 @@ void perl_window_item_fill_hash(HV *hv, WI_ITEM_REC *item) hv_store(hv, "createtime", 10, newSViv(item->createtime), 0); hv_store(hv, "data_level", 10, newSViv(item->data_level), 0); - hv_store(hv, "hilight_color", 10, new_pv(item->hilight_color), 0); + hv_store(hv, "hilight_color", 13, new_pv(item->hilight_color), 0); } void perl_channel_fill_hash(HV *hv, CHANNEL_REC *channel) @@ -426,7 +426,7 @@ static void perl_ignore_fill_hash(HV *hv, IGNORE_REC *ignore) hv_store(hv, "level", 5, newSViv(ignore->level), 0); - hv_store(hv, "exception", 6, newSViv(ignore->exception), 0); + hv_store(hv, "exception", 9, newSViv(ignore->exception), 0); hv_store(hv, "regexp", 6, newSViv(ignore->regexp), 0); hv_store(hv, "fullword", 8, newSViv(ignore->fullword), 0); } |