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

Don't crash when trying to bless NULLs

Browse Source 
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1645 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2001-07-24 22:21:48 +00:00 committed by cras
parent 00f7246d7c
commit 338e58cbad
4 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/perl/common/typemap
View File

@ -28,5 +28,5 @@ T_IrssiObj
$arg = irssi_bless((SERVER_REC *)$var);
T_PlainObj
$arg = irssi_bless_plain(\"$type\", $var);
$arg = plain_bless($var, \"$type\");

2
src/perl/irc/typemap
View File

@ -35,5 +35,5 @@ T_DccObj
$arg = dcc_bless((DCC_REC *)$var);
T_PlainObj
$arg = irssi_bless_plain(\"$type\", $var);
$arg = plain_bless($var, \"$type\");

2
src/perl/perl-signals.c
View File

@ -124,7 +124,7 @@ static void perl_call_signal(const char *func, int signal_id,
perlarg = irssi_bless((SERVER_REC *) arg);
} else {
/* blessed object */
perlarg = irssi_bless_plain(rec->args[n], arg);
perlarg = plain_bless(rec->args[n], arg);
}
XPUSHs(sv_2mortal(perlarg));
}

2
src/perl/ui/typemap
View File

@ -12,5 +12,5 @@ T_PlainObj
OUTPUT
T_PlainObj
$arg = irssi_bless_plain(\"$type\", $var);
$arg = plain_bless($var, \"$type\");