diff options
Diffstat (limited to 'cpan/Encode/lib/Encode/Guess.pm')
| -rw-r--r-- | cpan/Encode/lib/Encode/Guess.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/cpan/Encode/lib/Encode/Guess.pm b/cpan/Encode/lib/Encode/Guess.pm index 41fc19b799..87a725d999 100644 --- a/cpan/Encode/lib/Encode/Guess.pm +++ b/cpan/Encode/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.7 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r }; +our $VERSION = do { my @r = ( q$Revision: 2.8 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r }; my $Canon = 'Guess'; use constant DEBUG => !!$ENV{PERL_ENCODE_DEBUG}; @@ -158,7 +158,7 @@ sub guess { $nline++; } $try{ascii} - or return "Encodings too ambiguous: ", join( " or ", keys %try ); + or return "Encodings too ambiguous: " . join( " or ", keys %try ); return $try{ascii}; } |