From 3819189ef4c137ac4387fe0b7e7fb20314a994c3 Mon Sep 17 00:00:00 2001
From: Timo Sirainen <cras@irssi.org>
Date: Mon, 19 Nov 2001 19:36:21 +0000
Subject: Irssi::Irc::Dcc::* is now correctly blessed instead of using
 Irssi::Irc::Dcc always. did s/irssi_bless/iobject_bless/, added
 simple_iobject_bless which DCC uses.

git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2092 dbcabf3a-b0e7-0310-adc4-f8d773084564
---
 src/perl/common/Channel.xs | 10 +++++-----
 src/perl/common/Query.xs   |  4 ++--
 src/perl/common/Server.xs  |  4 ++--
 src/perl/common/typemap    |  2 +-
 4 files changed, 10 insertions(+), 10 deletions(-)

(limited to 'src/perl/common')

diff --git a/src/perl/common/Channel.xs b/src/perl/common/Channel.xs
index 4763e708..f425dc2b 100644
--- a/src/perl/common/Channel.xs
+++ b/src/perl/common/Channel.xs
@@ -9,7 +9,7 @@ PREINIT:
 	GSList *tmp;
 PPCODE:
 	for (tmp = channels; tmp != NULL; tmp = tmp->next) {
-		XPUSHs(sv_2mortal(irssi_bless((CHANNEL_REC *) tmp->data)));
+		XPUSHs(sv_2mortal(iobject_bless((CHANNEL_REC *) tmp->data)));
 	}
 
 Irssi::Channel
@@ -31,7 +31,7 @@ PREINIT:
 	GSList *tmp;
 PPCODE:
 	for (tmp = server->channels; tmp != NULL; tmp = tmp->next) {
-		XPUSHs(sv_2mortal(irssi_bless((CHANNEL_REC *) tmp->data)));
+		XPUSHs(sv_2mortal(iobject_bless((CHANNEL_REC *) tmp->data)));
 	}
 
 void
@@ -65,8 +65,8 @@ PPCODE:
 	list = nicklist_get_same(server, nick);
 
 	for (tmp = list; tmp != NULL; tmp = tmp->next->next) {
-		XPUSHs(sv_2mortal(irssi_bless((CHANNEL_REC *) tmp->data)));
-		XPUSHs(sv_2mortal(irssi_bless((NICK_REC *) tmp->next->data)));
+		XPUSHs(sv_2mortal(iobject_bless((CHANNEL_REC *) tmp->data)));
+		XPUSHs(sv_2mortal(iobject_bless((NICK_REC *) tmp->next->data)));
 	}
 	g_slist_free(list);
 
@@ -119,6 +119,6 @@ PPCODE:
 	list = nicklist_getnicks(channel);
 
 	for (tmp = list; tmp != NULL; tmp = tmp->next) {
-		XPUSHs(sv_2mortal(irssi_bless((NICK_REC *) tmp->data)));
+		XPUSHs(sv_2mortal(iobject_bless((NICK_REC *) tmp->data)));
 	}
 	g_slist_free(list);
diff --git a/src/perl/common/Query.xs b/src/perl/common/Query.xs
index b0766b91..54a0582c 100644
--- a/src/perl/common/Query.xs
+++ b/src/perl/common/Query.xs
@@ -11,7 +11,7 @@ PPCODE:
 	for (tmp = queries; tmp != NULL; tmp = tmp->next) {
 		QUERY_REC *rec = tmp->data;
 
-		XPUSHs(sv_2mortal(irssi_bless(rec)));
+		XPUSHs(sv_2mortal(iobject_bless(rec)));
 	}
 
 Irssi::Query
@@ -35,7 +35,7 @@ PPCODE:
 	for (tmp = server->queries; tmp != NULL; tmp = tmp->next) {
 		QUERY_REC *rec = tmp->data;
 
-		XPUSHs(sv_2mortal(irssi_bless(rec)));
+		XPUSHs(sv_2mortal(iobject_bless(rec)));
 	}
 
 Irssi::Query
diff --git a/src/perl/common/Server.xs b/src/perl/common/Server.xs
index 2bb992e9..1ae534cf 100644
--- a/src/perl/common/Server.xs
+++ b/src/perl/common/Server.xs
@@ -9,7 +9,7 @@ PREINIT:
 	GSList *tmp;
 PPCODE:
 	for (tmp = servers; tmp != NULL; tmp = tmp->next) {
-		XPUSHs(sv_2mortal(irssi_bless((SERVER_REC *) tmp->data)));
+		XPUSHs(sv_2mortal(iobject_bless((SERVER_REC *) tmp->data)));
 	}
 
 void
@@ -27,7 +27,7 @@ PREINIT:
 	GSList *tmp;
 PPCODE:
 	for (tmp = chatnets; tmp != NULL; tmp = tmp->next) {
-		XPUSHs(sv_2mortal(irssi_bless((CHATNET_REC *) tmp->data)));
+		XPUSHs(sv_2mortal(iobject_bless((CHATNET_REC *) tmp->data)));
 	}
 
 Irssi::Connect
diff --git a/src/perl/common/typemap b/src/perl/common/typemap
index f7829f58..5b7e0c32 100644
--- a/src/perl/common/typemap
+++ b/src/perl/common/typemap
@@ -25,7 +25,7 @@ T_PlainObj
 OUTPUT
 
 T_IrssiObj
-	$arg = irssi_bless((SERVER_REC *)$var);
+	$arg = iobject_bless((SERVER_REC *)$var);
 
 T_PlainObj
 	$arg = plain_bless($var, \"$type\");
-- 
cgit v1.2.3