summaryrefslogtreecommitdiff
path: root/src/plugins/scripts/perl
diff options
context:
space:
mode:
authorSebastien Helleu <flashcode@flashtux.org>2008-04-23 10:26:41 +0200
committerSebastien Helleu <flashcode@flashtux.org>2008-04-23 10:26:41 +0200
commita6dfefacfe1158e3bba37b818a49f06aef90eb87 (patch)
treee3335e9b0ecfd9cd265634814861466241dcc5bb /src/plugins/scripts/perl
parent06fd80e21079f80e7ff61537de42431205bd911a (diff)
downloadweechat-a6dfefacfe1158e3bba37b818a49f06aef90eb87.zip
Fixed perl plugin compilation with old gcc versions
Diffstat (limited to 'src/plugins/scripts/perl')
-rw-r--r--src/plugins/scripts/perl/weechat-perl.c12
1 files changed, 7 insertions, 5 deletions
diff --git a/src/plugins/scripts/perl/weechat-perl.c b/src/plugins/scripts/perl/weechat-perl.c
index d62556baa..6073d4821 100644
--- a/src/plugins/scripts/perl/weechat-perl.c
+++ b/src/plugins/scripts/perl/weechat-perl.c
@@ -293,18 +293,20 @@ weechat_perl_load (char *filename)
weechat_gettext ("%s%s: unable to parse file "
"\"%s\""),
weechat_prefix ("error"), "perl", filename);
- weechat_printf (NULL,
+#ifdef MULTIPLICITY
+ weechat_printf (NULL,
weechat_gettext ("%s%s: error: %s"),
weechat_prefix ("error"), "perl",
-#ifdef MULTIPLICITY
SvPV(perl_get_sv("weechat_perl_load_eval_file_error",
- FALSE), len)
+ FALSE), len));
#else
+ weechat_printf (NULL,
+ weechat_gettext ("%s%s: error: %s"),
+ weechat_prefix ("error"), "perl",
SvPV(perl_get_sv("WeechatPerlScriptLoader::"
"weechat_perl_load_eval_file_error",
- FALSE), len)
+ FALSE), len));
#endif
- );
}
else if (*eval == 1)
{