diff options
Diffstat (limited to 'src/perl/irc/IrcChannel.xs')
-rw-r--r-- | src/perl/irc/IrcChannel.xs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/perl/irc/IrcChannel.xs b/src/perl/irc/IrcChannel.xs index b78636c9..948b5b2a 100644 --- a/src/perl/irc/IrcChannel.xs +++ b/src/perl/irc/IrcChannel.xs @@ -9,7 +9,7 @@ PREINIT: PPCODE: stash = gv_stashpv("Irssi::Irc::Ban", 0); for (tmp = channel->banlist; tmp != NULL; tmp = tmp->next) { - XPUSHs(sv_2mortal(sv_bless(newRV_noinc(newSViv(GPOINTER_TO_INT(tmp->data))), stash))); + push_bless(tmp->data, stash); } void @@ -21,7 +21,7 @@ PREINIT: PPCODE: stash = gv_stashpv("Irssi::Irc::Ban", 0); for (tmp = channel->ebanlist; tmp != NULL; tmp = tmp->next) { - XPUSHs(sv_2mortal(sv_bless(newRV_noinc(newSViv(GPOINTER_TO_INT(tmp->data))), stash))); + push_bless(tmp->data, stash); } void |