summaryrefslogtreecommitdiff
path: root/src/perl/common
diff options
context:
space:
mode:
authorailin-nemui <ailin-nemui@users.noreply.github.com>2017-11-30 11:17:05 +0100
committerailin-nemui <ailin-nemui@users.noreply.github.com>2017-11-30 11:17:05 +0100
commit2b918fd9b8438eeef8f33556723140263e36f731 (patch)
tree0bdda333a8822fe71c60e42d19a3078019ee38d0 /src/perl/common
parentb332d448f7e3c7e4b40ea4a08932d0bd46007bbf (diff)
downloadirssi-2b918fd9b8438eeef8f33556723140263e36f731.zip
move decls before code
Diffstat (limited to 'src/perl/common')
-rw-r--r--src/perl/common/Expando.xs3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/perl/common/Expando.xs b/src/perl/common/Expando.xs
index 26800b05..84853a02 100644
--- a/src/perl/common/Expando.xs
+++ b/src/perl/common/Expando.xs
@@ -74,6 +74,7 @@ static char *perl_expando_event(PerlExpando *rec, SERVER_REC *server,
ret = NULL;
if (SvTRUE(ERRSV)) {
+ char *error;
PERL_SCRIPT_REC *script = rec->script;
(void) POPs;
@@ -85,7 +86,7 @@ static char *perl_expando_event(PerlExpando *rec, SERVER_REC *server,
script_unregister_expandos(script);
/* rec has been freed now */
- char *error = g_strdup(SvPV_nolen(ERRSV));
+ error = g_strdup(SvPV_nolen(ERRSV));
signal_emit("script error", 2, script, error);
g_free(error);
} else if (retcount > 0) {