diff options
Diffstat (limited to 'src/perl')
| -rw-r--r-- | src/perl/perl-common.c | 2 |
1 files changed, 1 insertions, 1 deletions
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 |