zynk/irssi
2
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2026-08-16 23:22:16 +02:00
Code Issues Projects Releases Packages Wiki Activity

actually no, it doesn't work ;)

Browse source 
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@3072 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2002-12-23 07:22:20 +00:00 • committed by cras
commit ab91c843bd
1 changed files with 1 additions and 1 deletions
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) != p) if (GC_base(p) == NULL)
croak("variable is already free'd"); croak("variable is already free'd");
} }
#endif #endif