fix for new perls

git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2979 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2002-10-28 01:50:55 +00:00 committed by cras
commit 8f424cd082

View file

@ -1,6 +1,6 @@
#include "module.h"
static int magic_free_text_dest(SV *sv, MAGIC *mg)
static int magic_free_text_dest(pTHX_ SV *sv, MAGIC *mg)
{
TEXT_DEST_REC *dest = (TEXT_DEST_REC *) mg->mg_ptr;
g_free((char *) dest->target);