Merged Irssi SVN (upcoming irssi 0.8.11).

[silc.git] / apps / irssi / src / perl / ui / Formats.xs

diff --git a/apps/irssi/src/perl/ui/Formats.xs b/apps/irssi/src/perl/ui/Formats.xs
index 11a2951c32832d550f9701435d7bf5e51881fc1c..7ff31aac5868e6aafd20b41da60faa9d8ac2b150 100644 (file)
--- a/apps/irssi/src/perl/ui/Formats.xs
+++ b/apps/irssi/src/perl/ui/Formats.xs
@@ -3,9 +3,11 @@
 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);
+       char *target = (char *) dest->target;
+       g_free(target);
        g_free(dest);
        mg->mg_ptr = NULL;
+       sv_setiv(sv, 0);
        return 0;
 }
 
@@ -131,4 +133,4 @@ print(dest, str)
        Irssi::UI::TextDest dest
        char *str
 CODE:
-       printtext_dest(dest, str);
+       printtext_dest(dest, "%s", str);