From a6dfefacfe1158e3bba37b818a49f06aef90eb87 Mon Sep 17 00:00:00 2001 From: Sebastien Helleu Date: Wed, 23 Apr 2008 10:26:41 +0200 Subject: [PATCH] Fixed perl plugin compilation with old gcc versions --- src/plugins/scripts/perl/weechat-perl.c | 12 +++++++----- 1 file 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) {