diff options
| author | Timo Sirainen <cras@irssi.org> | 2001-06-11 23:54:50 +0000 |
|---|---|---|
| committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2001-06-11 23:54:50 +0000 |
| commit | 3a0534da46303e39ecfd307a3d9a8d3dde53958a (patch) | |
| tree | 59eab7cfc425a88c3f728adcee290b6089e859fc /src/perl/common/Log.xs | |
| parent | 3f2b189a4c0abc76065b9038668994f815e1f189 (diff) | |
| download | irssi-3a0534da46303e39ecfd307a3d9a8d3dde53958a.zip | |
plain objects weren't blessed correctly in lists
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1554 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'src/perl/common/Log.xs')
| -rw-r--r-- | src/perl/common/Log.xs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/perl/common/Log.xs b/src/perl/common/Log.xs index 43ebad3c..4879aef9 100644 --- a/src/perl/common/Log.xs +++ b/src/perl/common/Log.xs @@ -4,11 +4,9 @@ void logs() PREINIT: GSList *tmp; - HV *stash; PPCODE: - stash = gv_stashpv("Irssi::Log", 0); for (tmp = logs; tmp != NULL; tmp = tmp->next) { - push_bless(tmp->data, stash); + XPUSHs(sv_2mortal(plain_bless(tmp->data, "Irssi::Log"))); } Irssi::Log |