diff options
author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-10-23 19:58:07 +0000 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-10-23 19:58:07 +0000 |
commit | f9d05ba35dc7d01260b38a6dc93f199c3b1d2c39 (patch) | |
tree | f357401c49ca2fc654007f03333d3f758fc23e2b /ext/Encode/lib | |
parent | 3b2f3eeb7db34430d0f2a4bbc1b52e70a34987d0 (diff) | |
download | perl-f9d05ba35dc7d01260b38a6dc93f199c3b1d2c39.tar.gz |
Upgrade to Encode 2.07
p4raw-id: //depot/perl@23417
Diffstat (limited to 'ext/Encode/lib')
-rw-r--r-- | ext/Encode/lib/Encode/Encoding.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ext/Encode/lib/Encode/Encoding.pm b/ext/Encode/lib/Encode/Encoding.pm index 92f8c9644a..1fad60a959 100644 --- a/ext/Encode/lib/Encode/Encoding.pm +++ b/ext/Encode/lib/Encode/Encoding.pm @@ -1,7 +1,7 @@ package Encode::Encoding; # Base class for classes which implement encodings use strict; -our $VERSION = do { my @r = (q$Revision: 2.0 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; +our $VERSION = do { my @r = (q$Revision: 2.1 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; require Encode; @@ -39,14 +39,14 @@ sub encode { require Carp; my $obj = shift; my $class = ref($obj) ? ref($obj) : $obj; - Carp::croak $class, "->encode() not defined!"; + Carp::croak($class . "->encode() not defined!"); } sub decode{ require Carp; my $obj = shift; my $class = ref($obj) ? ref($obj) : $obj; - Carp::croak $class, "->encode() not defined!"; + Carp::croak($class . "->encode() not defined!"); } sub DESTROY {} |