pegasus/weechat
1
0
Fork 0
mirror of https://github.com/weechat/weechat.git synced 2026-06-12 14:14:48 +02:00
Code Activity

perl: set locale only on supported Perl versions

Browse Source 
restrict setting the locale only if the Perl version supports it (>=5.27.9)

fixes #2219
This commit is contained in:
zeromind
2024-12-19 22:10:17 +00:00
committed by Sébastien Helleu
parent f4dbdb93d7
commit b634270f2a
1 changed files with 8 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/plugins/perl/weechat-perl.c
+8
View File
@@ -579,11 +579,15 @@ weechat_perl_load (const char *filename, const char *code)
wcwidth160 = wcwidth (160);
perl_construct (perl_current_interpreter);
#if PERL_REVISION >= 6 || (PERL_REVISION == 5 && PERL_VERSION >= 28) || (PERL_REVISION == 5 && PERL_VERSION == 27 && PERL_SUBVERSION >= 9)
if (wcwidth (160) != wcwidth160)
{
/* restore the locale that's broken in some versions of Perl */
Perl_setlocale (LC_ALL, "");
}
#else
(void) wcwidth160;
#endif
temp_script.interpreter = (PerlInterpreter *) perl_current_interpreter;
perl_parse (perl_current_interpreter, weechat_perl_api_init,
@@ -1320,11 +1324,15 @@ weechat_plugin_init (struct t_weechat_plugin *plugin, int argc, char *argv[])
wcwidth160 = wcwidth (160);
perl_construct (perl_main);
#if PERL_REVISION >= 6 || (PERL_REVISION == 5 && PERL_VERSION >= 28) || (PERL_REVISION == 5 && PERL_VERSION == 27 && PERL_SUBVERSION >= 9)
if (wcwidth (160) != wcwidth160)
{
/* restore the locale that's broken in some versions of Perl */
Perl_setlocale (LC_ALL, "");
}
#else
(void) wcwidth160;
#endif
perl_parse (perl_main, weechat_perl_api_init, perl_args_count,
perl_args, NULL);