Re: Texinfo 7.2.90 build with mingw.org's MinGW: cleanups in Info

On Thu, Jan 15, 2026 at 03:56:58PM +0200, Eli Zaretskii wrote:
> > Date: Thu, 15 Jan 2026 13:49:09 +0100
> > From: Patrice Dumas <[email protected]>
> > Cc: [email protected], [email protected]
> > 
> > This code seems somewhat similar to code in texi2any.c that is used to
> > determine the locale, which, I believe you proposed.  It is not exactly
> > the same context, I do not think that we want the translit part, but the
> > UTF-8 part could be relevant.  Just before that code, if
> > HAVE_LANGINFO_CODESET is defined, nl_langinfo (CODESET) is used.
> > Now that I look at the code more closely, it could be different as
> > the function used is diferent, GetACP versus GetConsoleOutputCP.
> > The code is currently:
> > 
> > #ifdef _WIN32         
> >   if (!locale_encoding)
> >     {
> >       unsigned cp = GetACP ();          
> >       xasprintf (&locale_encoding, "cp%u", cp);
> >     }
> > #endif
> > 
> > Should there be a change to that code too?
> 
> I think texi2any uses the locale's encoding for different purposes,
> but it cannot do any harm to report codepage 65001 as "UTF-8", so yes.

What would be the change to Perl equivalent code?  The current code is:

if (!defined($locale_encoding) and $^O eq 'MSWin32') {
  eval 'require Win32::API';
  if (!$@) {
    Win32::API::More->Import("kernel32", "int GetACP()");
    my $CP = GetACP();
    if (defined($CP)) {
      $locale_encoding = 'cp'.$CP;
    }
  } 
}

-- 
Pat