fixes, perl should work correctly now :)

git-svn-id: http://svn.irssi.org/repos/irssi/trunk@982 dbcabf3a-b0e7-0310-adc4-f8d773084564

1 files changed, 0 insertions, 43 deletions

diff --git a/src/perl/common/Log.xs b/src/perl/common/Log.xs
index fbef4b72..5821ebaa 100644
--- a/src/perl/common/Log.xs
+++ b/src/perl/common/Log.xs
@@ -25,32 +25,6 @@ MODULE = Irssi  PACKAGE = Irssi::Log  PREFIX = log_
 #*******************************
 
 void
-init(log)
-	Irssi::Log log
-PREINIT:
-	HV *hv, *stash;
-	AV *av;
-	GSList *tmp;
-CODE:
-	hv = hvref(ST(0));
-	if (hv != NULL) {
-		hv_store(hv, "fname", 5, new_pv(log->fname), 0);
-		hv_store(hv, "opened", 6, newSViv(log->opened), 0);
-		hv_store(hv, "level", 5, newSViv(log->level), 0);
-		hv_store(hv, "last", 4, newSViv(log->last), 0);
-		hv_store(hv, "autoopen", 8, newSViv(log->autoopen), 0);
-		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)));
-		}
-		hv_store(hv, "items", 4, newRV_noinc((SV*)av), 0);
-	}
-
-void
 log_item_add(log, type, name, server)
 	Irssi::Log log
 	int type
@@ -89,20 +63,3 @@ log_start_logging(log)
 void
 log_stop_logging(log)
 	Irssi::Log log
-
-#*******************************
-MODULE = Irssi  PACKAGE = Irssi::LogItem
-#*******************************
-
-void
-init(item)
-	Irssi::LogItem item
-PREINIT:
-	HV *hv;
-CODE:
-	hv = hvref(ST(0));
-	if (hv != NULL) {
-		hv_store(hv, "type", 4, newSViv(item->type), 0);
-		hv_store(hv, "name", 4, new_pv(item->name), 0);
-		hv_store(hv, "servertag", 9, new_pv(item->servertag), 0);
-	}