summaryrefslogtreecommitdiff
path: root/ext/Encode/lib
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>2004-10-23 19:58:07 +0000
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2004-10-23 19:58:07 +0000
commitf9d05ba35dc7d01260b38a6dc93f199c3b1d2c39 (patch)
treef357401c49ca2fc654007f03333d3f758fc23e2b /ext/Encode/lib
parent3b2f3eeb7db34430d0f2a4bbc1b52e70a34987d0 (diff)
downloadperl-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.pm6
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 {}