aniani/irssi
1
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2024-11-03 04:27:19 -05:00
Code

irssi_bless() crashed with NULL parameter

Browse Source 
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@973 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2000-12-06 05:22:47 +00:00 committed by cras
parent e95f309b50
commit e9db7e54a2
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/perl/perl-common.h
View File

@ -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);