jrd/irssi
1
0
Fork 0
forked from PsychoticNinja/irssi
Code Issues Pull Requests Projects Releases Wiki Activity

perl hash length fixes, they're also automatically checked now in

Browse Source 
autogen.sh (by peder)


git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2736 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2002-04-28 13:24:27 +00:00 committed by cras
parent c8188b61a8
commit 7d0af00133
3 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
autogen.sh
View File

@ -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 }'

2
src/perl/irc/Irc.xs
View File

@ -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)

4
src/perl/perl-common.c
View File

@ -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);
}