diff options
| author | Timo Sirainen <cras@irssi.org> | 2002-12-23 07:19:03 +0000 |
|---|---|---|
| committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2002-12-23 07:19:03 +0000 |
| commit | f070a873e02c95d08fc31084c917586b603819d2 (patch) | |
| tree | d0d2759e59b4ec93dd69383e1427e70b04be1813 | |
| parent | f0eaf349f75adcfd2daf81c18be5662242a6ae67 (diff) | |
| download | irssi-f070a873e02c95d08fc31084c917586b603819d2.zip | |
a bit better checking for free'd variables.
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@3071 dbcabf3a-b0e7-0310-adc4-f8d773084564
| -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 adb27cea..5a7c33e8 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) == NULL) + if (GC_base(p) != p) croak("variable is already free'd"); } #endif |