diff options
| author | Timo Sirainen <cras@irssi.org> | 2001-11-19 19:36:21 +0000 |
|---|---|---|
| committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2001-11-19 19:36:21 +0000 |
| commit | 3819189ef4c137ac4387fe0b7e7fb20314a994c3 (patch) | |
| tree | 98a8997990754c8d11e4b6f4696dfcd3f3081d69 /src/perl/common | |
| parent | 99a6a85b858b2bced34396b840770c005cacf3ee (diff) | |
| download | irssi-3819189ef4c137ac4387fe0b7e7fb20314a994c3.zip | |
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
Diffstat (limited to 'src/perl/common')
| -rw-r--r-- | src/perl/common/Channel.xs | 10 | ||||
| -rw-r--r-- | src/perl/common/Query.xs | 4 | ||||
| -rw-r--r-- | src/perl/common/Server.xs | 4 | ||||
| -rw-r--r-- | src/perl/common/typemap | 2 |
4 files changed, 10 insertions, 10 deletions
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\"); |