diff options
Diffstat (limited to 'src/perl/irc/IrcChannel.xs')
| -rw-r--r-- | src/perl/irc/IrcChannel.xs | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/src/perl/irc/IrcChannel.xs b/src/perl/irc/IrcChannel.xs index 36e40780..fb8ff3fc 100644 --- a/src/perl/irc/IrcChannel.xs +++ b/src/perl/irc/IrcChannel.xs @@ -5,11 +5,9 @@ bans(channel) Irssi::Irc::Channel channel PREINIT: GSList *tmp; - HV *stash; PPCODE: - stash = gv_stashpv("Irssi::Irc::Ban", 0); for (tmp = channel->banlist; tmp != NULL; tmp = tmp->next) { - push_bless(tmp->data, stash); + XPUSHs(sv_2mortal(plain_bless(tmp->data, "Irssi::Irc::Ban"))); } void @@ -17,11 +15,9 @@ ebans(channel) Irssi::Irc::Channel channel PREINIT: GSList *tmp; - HV *stash; PPCODE: - stash = gv_stashpv("Irssi::Irc::Ban", 0); for (tmp = channel->ebanlist; tmp != NULL; tmp = tmp->next) { - push_bless(tmp->data, stash); + XPUSHs(sv_2mortal(plain_bless(tmp->data, "Irssi::Irc::Ban"))); } void |