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, 27 deletions

diff --git a/src/perl/irc/IrcServer.xs b/src/perl/irc/IrcServer.xs
index c39abaa4..9ee76c2f 100644
--- a/src/perl/irc/IrcServer.xs
+++ b/src/perl/irc/IrcServer.xs
@@ -27,36 +27,9 @@ send_raw_split(server, cmd, nickarg, max_nicks)
 CODE:
 	irc_send_cmd_split(server, cmd, nickarg, max_nicks);
 
-void
-init(server)
-	Irssi::Irc::Server server
-PREINIT:
-	HV *hv;
-CODE:
-	hv = hvref(ST(0));
-	if (hv != NULL) {
-		perl_server_fill_hash(hv, server);
-
-		hv_store(hv, "real_address", 12, new_pv(server->real_address), 0);
-		hv_store(hv, "usermode", 8, new_pv(server->usermode), 0);
-		hv_store(hv, "userhost", 8, new_pv(server->userhost), 0);
-	}
-
 
 MODULE = Irssi::Irc	PACKAGE = Irssi::Irc::Connect  PREFIX = irc_server_
 
 Irssi::Irc::Server
 irc_server_connect(conn)
 	Irssi::Irc::Connect conn
-
-void
-init(conn)
-	Irssi::Irc::Connect conn
-PREINIT:
-	HV *hv;
-CODE:
-	hv = hvref(ST(0));
-	if (hv != NULL) {
-		perl_connect_fill_hash(hv, conn);
-		hv_store(hv, "alternate_nick", 14, new_pv(conn->alternate_nick), 0);
-	}