Attachment 872929 Details for Bug 1220195

Test program with our fix / workaround

yperl-tester-fix.cc (text/x-c++src), 1.04 KB, created by Stefan Hundhammer on 2024-02-22 11:00:13 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Stefan Hundhammer

Created: 2024-02-22 11:00:13 UTC

Size: 1.04 KB

patch

obsolete

>// Set the Perl lib-dir once:
>//
>//   export PERL_LIB=/usr/lib/perl5/5.38.2/x86_64-linux-thread-multi/CORE
>// 
>// Build this with:
>//
>//   g++ yperl-tester-fix.cc -o yperl-tester-fix -Wall -O2 -I$PERL_LIB -L$PERL_LIB -lperl
>//
>// Call it with:
>//
>//   LC_ALL=de_DE.UTF-8 LD_LIBRARY_PATH=$PERL_LIB ./yperl-tester-fix
>
>
>#include <locale.h>
>#include <langinfo.h>
>#include <iostream>
>
>#include <EXTERN.h>
>#include <perl.h>
>
>
>using namespace std;
>
>
>int
>main()
>{
>    cout << "initial locale:  " << setlocale( LC_ALL, "" ) << '\n';
>    cout << "initial codeset: " << nl_langinfo(CODESET)    << '\n';
>
>    PerlInterpreter* perl_interpreter = perl_alloc();
>    cout << "\ncodeset after perl_alloc: " << nl_langinfo(CODESET) << '\n';
>    
>    perl_construct(perl_interpreter);
>    cout << "codeset after perl_construct(): " << nl_langinfo(CODESET) << '\n';
>    
>    uselocale( LC_GLOBAL_LOCALE );
>    cout << "\nswitching to the global locale\n\n";
>    
>    cout << "locale:  " << setlocale(LC_ALL, "") << '\n';
>    cout << "codeset: " << nl_langinfo(CODESET)  << '\n';
>}

Actions: View

Attachments on bug 1220195: 872927 | 872929