From 034752ade3b9d951c716d50d3f4d1e40fe9e110c Mon Sep 17 00:00:00 2001 From: ailin-nemui Date: Mon, 4 Feb 2019 14:33:41 +0100 Subject: [PATCH] fix gui_input_get_extent it was causing a free of data with [transfer=none] --- src/perl/textui/TextUI.xs | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) diff --git a/src/perl/textui/TextUI.xs b/src/perl/textui/TextUI.xs index 9f4fd0b0..af978162 100644 --- a/src/perl/textui/TextUI.xs +++ b/src/perl/textui/TextUI.xs @@ -158,15 +158,13 @@ gui_input_clear_extents(pos, len = 0) CODE: gui_entry_clear_extents(active_entry, pos, len); -void +char * gui_input_get_extent(pos) int pos -PREINIT: - char *ret; -PPCODE: - ret = gui_entry_get_extent(active_entry, pos); - XPUSHs(sv_2mortal(new_pv(ret))); - g_free(ret); +CODE: + RETVAL = gui_entry_get_extent(active_entry, pos); +OUTPUT: + RETVAL void gui_input_get_text_and_extents()