diff options
| author | Timo Sirainen <cras@irssi.org> | 2002-12-23 07:22:20 +0000 |
|---|---|---|
| committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2002-12-23 07:22:20 +0000 |
| commit | ab91c843bd8d4bdb1130f32719f8a908dcf15fbc (patch) | |
| tree | 915a0109ad8ea4b222336eea99fd51ee22fdefb4 /src/perl | |
| parent | f070a873e02c95d08fc31084c917586b603819d2 (diff) | |
| download | irssi-ab91c843bd8d4bdb1130f32719f8a908dcf15fbc.zip | |
actually no, it doesn't work ;)
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@3072 dbcabf3a-b0e7-0310-adc4-f8d773084564
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 |