summaryrefslogtreecommitdiff
path: root/src/perl/perl-common.h
diff options
context:
space:
mode:
authorTimo Sirainen <cras@irssi.org>2000-12-06 05:22:47 +0000
committercras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564>2000-12-06 05:22:47 +0000
commite9db7e54a2d9679dc431c64a0647c1cf02fe24ec (patch)
tree01b060a867ac9df0012c2f7bc8ba575b5f6e2911 /src/perl/perl-common.h
parente95f309b500e37ceb65f533fa0267a2864511228 (diff)
downloadirssi-e9db7e54a2d9679dc431c64a0647c1cf02fe24ec.zip
irssi_bless() crashed with NULL parameter
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@973 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'src/perl/perl-common.h')
-rw-r--r--src/perl/perl-common.h3
1 files changed, 2 insertions, 1 deletions
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);