← Back to branch summary

~ubuntu-branches/ubuntu/raring/libencode-perl/raring-proposed

« back to all changes in this revision

Viewing changes to lib/Encode/Guess.pm

  • Committer: Bazaar Package Importer
  • Author(s): Ansgar Burchardt, Ansgar Burchardt, Salvatore Bonaccorso
  • Date: 2011-08-10 11:03:23 UTC
  • mfrom: (1.2.3 upstream)
  • Revision ID: james.westby@ubuntu.com-20110810110323-a4aydyozf4tted2g
Tags: 2.44-1
* Team upload.
* Upload with high urgency as this includes a security fix.

[ Ansgar Burchardt ]
* New upstream release.
* debian/control: Convert Vcs-* fields to Git.

[ Salvatore Bonaccorso ]
* debian/copyright: Replace DEP5 Format-Specification URL from
  svn.debian.org to anonscm.debian.org URL.

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/Encode/Guess.pm
2
2
use strict;
3
3
use warnings;
4
4
use Encode qw(:fallbacks find_encoding);
5
 
our $VERSION = do { my @r = ( q$Revision: 2.4 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
 
5
our $VERSION = do { my @r = ( q$Revision: 2.5 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
6
6
 
7
7
my $Canon = 'Guess';
8
 
sub DEBUG () { 0 }
 
8
use constant DEBUG => !!$ENV{PERL_ENCODE_DEBUG};
9
9
our %DEF_SUSPECTS = map { $_ => find_encoding($_) } qw(ascii utf8);
10
10
$Encode::Encoding{$Canon} = bless {
11
11
    Name     => $Canon,