diff options
Diffstat (limited to 'src/perl/irc')
| -rw-r--r-- | src/perl/irc/Irc.xs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/perl/irc/Irc.xs b/src/perl/irc/Irc.xs index d976ce9e..f73a92ff 100644 --- a/src/perl/irc/Irc.xs +++ b/src/perl/irc/Irc.xs @@ -134,8 +134,10 @@ static void perl_notifylist_fill_hash(HV *hv, NOTIFYLIST_REC *notify) hv_store(hv, "idle_check_time", 15, newSViv(notify->idle_check_time), 0); av = newAV(); - for (tmp = notify->ircnets; *tmp != NULL; tmp++) { - av_push(av, new_pv(*tmp)); + if (notify->ircnets != NULL) { + for (tmp = notify->ircnets; *tmp != NULL; tmp++) { + av_push(av, new_pv(*tmp)); + } } hv_store(hv, "ircnets", 7, newRV_noinc((SV*)av), 0); } |