summaryrefslogtreecommitdiff
path: root/src/perl/common
diff options
context:
space:
mode:
authorEmanuele Giaquinta <exg@irssi.org>2006-12-10 15:53:19 +0000
committerexg <exg@dbcabf3a-b0e7-0310-adc4-f8d773084564>2006-12-10 15:53:19 +0000
commit3cfc7f92f6a416c9b7105be61931d5ddfe46a373 (patch)
tree3f541ad40d61ce745d9f9bb997f5098909488c32 /src/perl/common
parent737890d131804fe8e2796b35ae8e426b01c59c8a (diff)
downloadirssi-3cfc7f92f6a416c9b7105be61931d5ddfe46a373.zip
Declare str in PREINIT section.
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@4400 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'src/perl/common')
-rw-r--r--src/perl/common/Settings.xs4
1 files 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())