| Subject: | sub File::Glob::Windows::getCodePage_POSIX |
My perl came without Win32::TieRegistry or Win32::API, and since every
perl comes with POSIX, I made this change to lib/File/Glob/Windows.pm
sub getCodePage{
return getCodePage_POSIX;
}
sub getCodePage_POSIX {
require POSIX;
my $v = POSIX::setlocale( &POSIX::LC_CTYPE );
#~ LC_TYPE returns
#~ English_United States.1252
#~ which matches ...Control/Nls/CodePage
#~ (default)=(value not set)
#~ ACP=1252
#~ OEMCP=437
return "cp$1" if defined($v) and $v=~/(\d+)$/;
return;
}
all tests passed after this
Thank you