acpi:PNP0A06: %ʿ%File not found. 'ʿ'File not found. 0)lY>R(  76- l_ub &=LV[(?)# $Id: encoding.pm,v 3.00 2020/04/19 10:56:28 dankogai Exp $ package encoding; our $VERSION = sprintf "%d.%02d", q$Revision: 3.00 $ =~ /(\d+)/g; use Encode; use strict; use warnings; use Config; use constant { DEBUG => !!$ENV{PERL_ENCODE_DEBUG}, HAS_PERLIO => eval { require PerlIO::encoding; PerlIO::encoding->VERSION(0.02) }, PERL_5_21_7 => $^V && $^V ge v5.21.7, # lexically scoped }; sub _exception { my $name = shift; $] > 5.008 and return 0; # 5.8.1 or higher then no my %utfs = map { $_ => 1 } qw(utf8 UCS-2BE UCS-2LE UTF-16 UTF-16BE UTF-16LE UTF-32 UTF-32BE UTF-32LE); $utfs{$name} or return 0; # UTFs or no require Config; Config->import(); our %Config; return $Config{perl_patchlevel} ? 0 : 1 # maintperl then no } sub in_locale { $^H & ( $locale::hint_bits || 0 ) } sub _get_locale_encoding { my $locale_encoding; if ($^O eq 'MSWin32') { my @tries = ( # First try to get the OutputCP. This will work only if we # are attached to a console 'Win32.pm' => 'Win32::GetConsoleOutputCP', 'Win32/Console.pm' => 'Win32::Console::OutputCP', # If above failed, this means that we are a GUI app # Let's assume that the ANSI codepage is what matters 'Win32.pm' => 'Win32::GetACP', ); while (@tries) { my $cp = eval { require $tries[0]; no strict 'refs'; &{$tries[1]}() }; if ($cp) { if ($cp == 65001) { # Code page for UTF-8 $locale_encoding = 'UTF-8'; } else { $locale_encoding = 'cp' . $cp; } return $locale_encoding; } splice(@tries, 0, 2) } } # I18N::Langinfo isn't available everywhere $locale_encoding = eval { require I18N::Langinfo; find_encoding( I18N::Langinfo::langinfo( I18N::Langinfo::CODESET() ) )->name }; return $locale_encoding if defined $locale_encoding; eval { require POSIX; # Get the current locale # Remember that MSVCRT impl is quite different from Unixes my $locale = POSIX::setlocale(POSIX::LC_CTYPE()); if ( $locale =~ /^([^.]+)\.([^.@]+)(?:@.*)?$/ ) { my $country_language; ( $country_language, $locale_encoding ) = ( $1, $2 ); # Could do more heuristics based on the country and language # since we have Locale::Country and Locale::Language available. # TODO: get a database of Language -> Encoding mappings # (the Estonian database at http://www.eki.ee/letter/ # would be excellent!) --jhi if (lc($locale_encoding) eq 'euc') { if ( $country_language =~ /^ja_JP|japan(?:ese)?$/i ) { $locale_encoding = 'euc-jp'; } elsif ( $country_language =~ /^ko_KR|korean?$/i ) { $locale_encoding = 'euc-kr'; } elsif ( $country_language =~ /^zh_CN|chin(?:a|ese)$/i ) { $locale_encoding = 'euc-cn'; } elsif ( $country_language =~ /^zh_TW|taiwan(?:ese)?$/i ) { $locale_encoding = 'euc-tw'; } else { require Carp; Carp::croak( "encoding: Locale encoding '$locale_encoding' too ambiguous" ); } } } }; return $locale_encoding; } sub import { if ( ord("A") == 193 ) { require Carp; Carp::croak("encoding: pragma does not support EBCDIC platforms"); } my $deprecate = ($] >= 5.017 and !$Config{usecperl}) ? "Use of the encoding