summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Encode/Guess.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Encode/Guess.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/Encode/Guess.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/Master/tlpkg/tlperl/lib/Encode/Guess.pm b/Master/tlpkg/tlperl/lib/Encode/Guess.pm
index 1ad7147e7f5..9636a8ad8a5 100644
--- a/Master/tlpkg/tlperl/lib/Encode/Guess.pm
+++ b/Master/tlpkg/tlperl/lib/Encode/Guess.pm
@@ -2,7 +2,7 @@ package Encode::Guess;
use strict;
use warnings;
use Encode qw(:fallbacks find_encoding);
-our $VERSION = do { my @r = ( q$Revision: 2.3 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+our $VERSION = do { my @r = ( q$Revision: 2.4 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
my $Canon = 'Guess';
sub DEBUG () { 0 }
@@ -53,7 +53,7 @@ sub decode($$;$) {
require Carp;
Carp::croak($guessed);
}
- my $utf8 = $guessed->decode( $octet, $chk );
+ my $utf8 = $guessed->decode( $octet, $chk || 0 );
$_[1] = $octet if $chk;
return $utf8;
}
@@ -279,7 +279,7 @@ the internal suspects list.
my $decoder = guess_encoding($data, qw/euc-jp euc-kr euc-cn/);
die $decoder unless ref($decoder);
my $utf8 = $decoder->decode($data);
- # check only ascii and utf8
+ # check only ascii, utf8 and UTF-(16|32) with BOM
my $decoder = guess_encoding($data);
=back