diff options
author | Timo Sirainen <cras@irssi.org> | 2002-07-04 13:18:17 +0000 |
---|---|---|
committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2002-07-04 13:18:17 +0000 |
commit | e7902ae551e829840cab8d077a1d49b690a5963c (patch) | |
tree | 30e7cbeec15550bcf5902a55928085a262fb1385 /src | |
parent | ddfc6aebcc2ba205ec6fe33f77027a9d9d727c59 (diff) | |
download | irssi-e7902ae551e829840cab8d077a1d49b690a5963c.zip |
Using Irssi::Ignore crashed
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2865 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'src')
-rw-r--r-- | src/perl/perl-common.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/perl/perl-common.c b/src/perl/perl-common.c index be73bd30..a3a599ac 100644 --- a/src/perl/perl-common.c +++ b/src/perl/perl-common.c @@ -420,8 +420,10 @@ static void perl_ignore_fill_hash(HV *hv, IGNORE_REC *ignore) hv_store(hv, "mask", 4, new_pv(ignore->mask), 0); hv_store(hv, "servertag", 9, new_pv(ignore->servertag), 0); av = newAV(); - for (tmp = ignore->channels; *tmp != NULL; tmp++) { - av_push(av, new_pv(*tmp)); + if (ignore->channels != NULL) { + for (tmp = ignore->channels; *tmp != NULL; tmp++) { + av_push(av, new_pv(*tmp)); + } } hv_store(hv, "channels", 8, newRV_noinc((SV*)av), 0); hv_store(hv, "pattern", 7, new_pv(ignore->pattern), 0); |