diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-07-09 08:12:32 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-07-09 08:12:32 +0000 |
| commit | 8f139f4c25cbb5efe1153fc2070b9a8b96fdf844 (patch) | |
| tree | 5c566211c8bc65f0a762be4e93cfdfe7885ebf47 /ext/Encode/Encode.pm | |
| parent | 15ecd4aee763c5eef4038c286267fe051c148238 (diff) | |
| download | perl-8f139f4c25cbb5efe1153fc2070b9a8b96fdf844.tar.gz | |
Upgrade to Encode 1.97.
p4raw-id: //depot/perl@20090
Diffstat (limited to 'ext/Encode/Encode.pm')
| -rw-r--r-- | ext/Encode/Encode.pm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/ext/Encode/Encode.pm b/ext/Encode/Encode.pm index db74b6a194..248586aeb9 100644 --- a/ext/Encode/Encode.pm +++ b/ext/Encode/Encode.pm @@ -1,10 +1,10 @@ # -# $Id: Encode.pm,v 1.96 2003/06/18 09:29:02 dankogai Exp $ +# $Id: Encode.pm,v 1.97 2003/07/08 21:52:14 dankogai Exp $ # package Encode; use strict; -our $VERSION = do { my @r = (q$Revision: 1.96 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; -our $DEBUG = 0; +our $VERSION = do { my @r = (q$Revision: 1.97 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; +sub DEBUG () { 0 } use XSLoader (); XSLoader::load(__PACKAGE__, $VERSION); @@ -60,7 +60,7 @@ sub encodings }else{ %enc = %Encoding; for my $mod (map {m/::/o ? $_ : "Encode::$_" } @_){ - $DEBUG and warn $mod; + DEBUG and warn $mod; for my $enc (keys %ExtModule){ $ExtModule{$enc} eq $mod and $enc{$enc} = $mod; } @@ -258,11 +258,11 @@ sub predefine_encodings{ push @Encode::utf8::ISA, 'Encode::Encoding'; # if ($use_xs){ - $DEBUG and warn __PACKAGE__, " XS on"; + Encode::DEBUG and warn __PACKAGE__, " XS on"; *decode = \&decode_xs; *encode = \&encode_xs; }else{ - $DEBUG and warn __PACKAGE__, " XS off"; + Encode::DEBUG and warn __PACKAGE__, " XS off"; *decode = sub{ my ($obj,$octets,$chk) = @_; my $str = Encode::decode_utf8($octets); |