diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Encode/Guess.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Encode/Guess.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Master/tlpkg/tlperl/lib/Encode/Guess.pm b/Master/tlpkg/tlperl/lib/Encode/Guess.pm index 31ec58f4fca..b44daf59eb5 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.5 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r }; +our $VERSION = do { my @r = ( q$Revision: 2.6 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r }; my $Canon = 'Guess'; use constant DEBUG => !!$ENV{PERL_ENCODE_DEBUG}; @@ -12,7 +12,7 @@ $Encode::Encoding{$Canon} = bless { Suspects => {%DEF_SUSPECTS}, } => __PACKAGE__; -use base qw(Encode::Encoding); +use parent qw(Encode::Encoding); sub needs_lines { 1 } sub perlio_ok { 0 } |