From 8f424cd082f8a5c66576eb7f3f6e50a40495fdab Mon Sep 17 00:00:00 2001 From: Timo Sirainen Date: Mon, 28 Oct 2002 01:50:55 +0000 Subject: [PATCH] fix for new perls git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2979 dbcabf3a-b0e7-0310-adc4-f8d773084564 --- src/perl/ui/Formats.xs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/perl/ui/Formats.xs b/src/perl/ui/Formats.xs index 42376f8a..11a2951c 100644 --- a/src/perl/ui/Formats.xs +++ b/src/perl/ui/Formats.xs @@ -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);