diff options
author | Sebastien Helleu <flashcode@flashtux.org> | 2008-04-23 10:26:41 +0200 |
---|---|---|
committer | Sebastien Helleu <flashcode@flashtux.org> | 2008-04-23 10:26:41 +0200 |
commit | a6dfefacfe1158e3bba37b818a49f06aef90eb87 (patch) | |
tree | e3335e9b0ecfd9cd265634814861466241dcc5bb /src/plugins/scripts/perl | |
parent | 06fd80e21079f80e7ff61537de42431205bd911a (diff) | |
download | weechat-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.c | 12 |
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) { |