From ab91c843bd8d4bdb1130f32719f8a908dcf15fbc Mon Sep 17 00:00:00 2001 From: Timo Sirainen Date: Mon, 23 Dec 2002 07:22:20 +0000 Subject: [PATCH] actually no, it doesn't work ;) git-svn-id: http://svn.irssi.org/repos/irssi/trunk@3072 dbcabf3a-b0e7-0310-adc4-f8d773084564 --- src/perl/perl-common.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/perl/perl-common.c b/src/perl/perl-common.c index 5a7c33e8..adb27cea 100644 --- a/src/perl/perl-common.c +++ b/src/perl/perl-common.c @@ -170,7 +170,7 @@ void *irssi_ref_object(SV *o) if (perl_memory_check_level > 0) { if (perl_memory_check_level > 1) GC_gcollect(); - if (GC_base(p) != p) + if (GC_base(p) == NULL) croak("variable is already free'd"); } #endif