diff options
| author | Timo Sirainen <cras@irssi.org> | 2001-06-26 17:01:42 +0000 |
|---|---|---|
| committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2001-06-26 17:01:42 +0000 |
| commit | 740f041c266c92d905754bbcb342b1e69d0770fe (patch) | |
| tree | 0ce03b703e071d2b298df426f519235080d42ed5 /src/perl/perl-common.c | |
| parent | d0de9fe229ab0d8ae1f61f7460fdf87d71f7344d (diff) | |
| download | irssi-740f041c266c92d905754bbcb342b1e69d0770fe.zip | |
Perl blessing fixes.
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1566 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'src/perl/perl-common.c')
| -rw-r--r-- | src/perl/perl-common.c | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/perl/perl-common.c b/src/perl/perl-common.c index 50ec6c2d..774cd87d 100644 --- a/src/perl/perl-common.c +++ b/src/perl/perl-common.c @@ -336,7 +336,6 @@ static void perl_ignore_fill_hash(HV *hv, IGNORE_REC *ignore) static void perl_log_fill_hash(HV *hv, LOG_REC *log) { - HV *stash; AV *av; GSList *tmp; @@ -349,12 +348,11 @@ static void perl_log_fill_hash(HV *hv, LOG_REC *log) hv_store(hv, "failed", 6, newSViv(log->failed), 0); hv_store(hv, "temp", 4, newSViv(log->temp), 0); - stash = gv_stashpv("Irssi::Logitem", 0); av = newAV(); for (tmp = log->items; tmp != NULL; tmp = tmp->next) { - av_push(av, sv_2mortal(new_bless(tmp->data, stash))); + av_push(av, plain_bless(tmp->data, "Irssi::Logitem")); } - hv_store(hv, "items", 4, newRV_noinc((SV*)av), 0); + hv_store(hv, "items", 5, newRV_noinc((SV*)av), 0); } static void perl_log_item_fill_hash(HV *hv, LOG_ITEM_REC *item) |