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/perl-common.h | |
| 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/perl-common.h')
| -rw-r--r-- | src/perl/perl-common.h | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/perl/perl-common.h b/src/perl/perl-common.h index da099062..13ea3d4e 100644 --- a/src/perl/perl-common.h +++ b/src/perl/perl-common.h @@ -28,10 +28,14 @@ char *perl_function_get_package(const char *function); # define PL_sv_undef sv_undef #endif -#define irssi_bless(object) \ +#define iobject_bless(object) \ ((object) == NULL ? &PL_sv_undef : \ irssi_bless_iobject((object)->type, (object)->chat_type, object)) +#define simple_iobject_bless(object) \ + ((object) == NULL ? &PL_sv_undef : \ + irssi_bless_iobject((object)->type, 0, object)) + #define plain_bless(object, stash) \ ((object) == NULL ? &PL_sv_undef : \ irssi_bless_plain(stash, object)) |