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