diff options
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)) |