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

a bit better checking for free'd variables.

Browse Source 
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@3071 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2002-12-23 07:19:03 +00:00 committed by cras
parent f0eaf349f7
commit f070a873e0
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -170,7 +170,7 @@ void *irssi_ref_object(SV *o)
if (perl_memory_check_level > 0) { if (perl_memory_check_level > 0) {
if (perl_memory_check_level > 1) if (perl_memory_check_level > 1)
GC_gcollect(); GC_gcollect();
if (GC_base(p) == NULL) if (GC_base(p) != p)
croak("variable is already free'd"); croak("variable is already free'd");
} }
#endif #endif