diff options
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) { |