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