diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-10-19 13:17:01 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-10-19 13:17:01 +0000 |
| commit | d7fe8a7a142a8a71ee7a4ebb861012b548dc70a2 (patch) | |
| tree | f49c45f90aaad36ff90fb726227796c7faf22b03 /ext/Encode/encoding.pm | |
| parent | fc3a748cd0ee9b79d0761d5ab998a733a5f2010c (diff) | |
| download | perl-d7fe8a7a142a8a71ee7a4ebb861012b548dc70a2.tar.gz | |
Upgrade to Encode 2.05
p4raw-id: //depot/perl@23384
Diffstat (limited to 'ext/Encode/encoding.pm')
| -rw-r--r-- | ext/Encode/encoding.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ext/Encode/encoding.pm b/ext/Encode/encoding.pm index b398301513..6eccc7eb52 100644 --- a/ext/Encode/encoding.pm +++ b/ext/Encode/encoding.pm @@ -1,6 +1,6 @@ -# $Id: encoding.pm,v 2.01 2004/05/16 20:55:16 dankogai Exp $ +# $Id: encoding.pm,v 2.1 2004/10/19 04:55:01 dankogai Exp dankogai $ package encoding; -our $VERSION = do { my @r = (q$Revision: 2.01 $ =~ /\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 }; use Encode; use strict; @@ -127,7 +127,7 @@ sub import { $status ; }); }; - $@ == '' and DEBUG and warn "Filter installed"; + $@ eq '' and DEBUG and warn "Filter installed"; } defined ${^UNICODE} and ${^UNICODE} != 0 and return 1; for my $h (qw(STDIN STDOUT)){ |