diff options
Diffstat (limited to 'src/perl/common/Server.xs')
| -rw-r--r-- | src/perl/common/Server.xs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/perl/common/Server.xs b/src/perl/common/Server.xs index eb6aa90d..dd44fe08 100644 --- a/src/perl/common/Server.xs +++ b/src/perl/common/Server.xs @@ -13,11 +13,9 @@ void reconnects() PREINIT: GSList *tmp; - HV *stash; PPCODE: - stash = gv_stashpv("Irssi::Reconnect", 0); for (tmp = reconnects; tmp != NULL; tmp = tmp->next) { - push_bless(tmp->data, stash); + XPUSHs(sv_2mortal(plain_bless(tmp->data, "Irssi::Reconnect"))); } Irssi::Connect |