diff options
| author | Timo Sirainen <cras@irssi.org> | 2000-12-09 20:54:47 +0000 |
|---|---|---|
| committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2000-12-09 20:54:47 +0000 |
| commit | 5dcd6833242a88cbf0fdbcfa6a25fbe3bad77426 (patch) | |
| tree | 2f9431cda59df10bcb6f80e2e5e662beead43e73 /src/perl/common/Rawlog.xs | |
| parent | 8d98e80a6b914c6e1708b2ccc5cfd49e0ed43584 (diff) | |
| download | irssi-5dcd6833242a88cbf0fdbcfa6a25fbe3bad77426.zip | |
fixes, perl should work correctly now :)
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@982 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'src/perl/common/Rawlog.xs')
| -rw-r--r-- | src/perl/common/Rawlog.xs | 20 |
1 files changed, 0 insertions, 20 deletions
diff --git a/src/perl/common/Rawlog.xs b/src/perl/common/Rawlog.xs index c9a37d56..34ace267 100644 --- a/src/perl/common/Rawlog.xs +++ b/src/perl/common/Rawlog.xs @@ -32,26 +32,6 @@ MODULE = Irssi PACKAGE = Irssi::Rawlog PREFIX = rawlog_ #******************************* void -init(rawlog) - Irssi::Rawlog rawlog -PREINIT: - HV *hv; - AV *av; - GSList *tmp; -CODE: - hv = hvref(ST(0)); - if (hv != NULL) { - hv_store(hv, "logging", 7, newSViv(rawlog->logging), 0); - hv_store(hv, "nlines", 6, newSViv(rawlog->nlines), 0); - - av = newAV(); - for (tmp = rawlog->lines; tmp != NULL; tmp = tmp->next) { - av_push(av, new_pv(tmp->data)); - } - hv_store(hv, "lines", 5, newRV_noinc((SV*)av), 0); - } - -void rawlog_destroy(rawlog) Irssi::Rawlog rawlog |