From 3cfc7f92f6a416c9b7105be61931d5ddfe46a373 Mon Sep 17 00:00:00 2001 From: Emanuele Giaquinta Date: Sun, 10 Dec 2006 15:53:19 +0000 Subject: [PATCH] Declare str in PREINIT section. git-svn-id: http://svn.irssi.org/repos/irssi/trunk@4400 dbcabf3a-b0e7-0310-adc4-f8d773084564 --- src/perl/common/Settings.xs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/perl/common/Settings.xs b/src/perl/common/Settings.xs index 684b7718..a9bdd11d 100644 --- a/src/perl/common/Settings.xs +++ b/src/perl/common/Settings.xs @@ -72,9 +72,9 @@ PROTOTYPES: ENABLE SV * settings_get_str(key) char *key -CODE: +PREINIT: const char *str; - +CODE: str = settings_get_str(key); RETVAL = new_pv(str); if (is_utf8())