Lets see if GC happens to work now without explicit free() calls. Perl

objects now set the C pointer to NULL once they're done with it, so this
might just work without leaking..


git-svn-id: http://svn.irssi.org/repos/irssi/trunk@3101 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2003-01-25 03:19:40 +00:00 committed by cras
commit 0e61b4c829
5 changed files with 37 additions and 31 deletions

View file

@ -6,6 +6,7 @@ static int magic_free_text_dest(pTHX_ SV *sv, MAGIC *mg)
g_free((char *) dest->target);
g_free(dest);
mg->mg_ptr = NULL;
sv_setiv(sv, 0);
return 0;
}