From e9db7e54a2d9679dc431c64a0647c1cf02fe24ec Mon Sep 17 00:00:00 2001 From: Timo Sirainen Date: Wed, 6 Dec 2000 05:22:47 +0000 Subject: [PATCH] irssi_bless() crashed with NULL parameter git-svn-id: http://svn.irssi.org/repos/irssi/trunk@973 dbcabf3a-b0e7-0310-adc4-f8d773084564 --- src/perl/perl-common.h | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/perl/perl-common.h b/src/perl/perl-common.h index e4987337..71e508b0 100644 --- a/src/perl/perl-common.h +++ b/src/perl/perl-common.h @@ -17,7 +17,8 @@ XPUSHs(sv_2mortal(new_bless(obj, stash))) #define irssi_bless(object) \ - irssi_bless_object((object)->type, (object)->chat_type, object) + ((object) == NULL ? &PL_sv_undef : \ + irssi_bless_object((object)->type, (object)->chat_type, object)) /* returns the package who called us */ char *perl_get_package(void);