diff options
| author | Dan Kogai <dankogai@dan.co.jp> | 2003-06-19 04:09:11 +0900 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-06-18 12:11:07 +0000 |
| commit | b5ab1f6f2e57e1281ebcae37bccb0e45c4bca11d (patch) | |
| tree | 6415679b9c9488b34a6285e2cf9988ea1727a0ef /ext/Encode/lib | |
| parent | 6ad3409fdb4492a86dd8d15e2f3a8bd098067026 (diff) | |
| download | perl-b5ab1f6f2e57e1281ebcae37bccb0e45c4bca11d.tar.gz | |
Encode] 1.96 Released
Message-Id: <E7FFAE2E-A174-11D7-ACE4-000393AE4244@dan.co.jp>
p4raw-id: //depot/perl@19811
Diffstat (limited to 'ext/Encode/lib')
| -rw-r--r-- | ext/Encode/lib/Encode/Encoding.pm | 2 | ||||
| -rw-r--r-- | ext/Encode/lib/Encode/JP/JIS7.pm | 5 |
2 files changed, 3 insertions, 4 deletions
diff --git a/ext/Encode/lib/Encode/Encoding.pm b/ext/Encode/lib/Encode/Encoding.pm index 3978e9df89..6f196278e5 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: 1.32 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; +our $VERSION = do { my @r = (q$Revision: 1.33 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; require Encode; diff --git a/ext/Encode/lib/Encode/JP/JIS7.pm b/ext/Encode/lib/Encode/JP/JIS7.pm index d194c5a708..01a7f0e36c 100644 --- a/ext/Encode/lib/Encode/JP/JIS7.pm +++ b/ext/Encode/lib/Encode/JP/JIS7.pm @@ -1,7 +1,7 @@ package Encode::JP::JIS7; use strict; -our $VERSION = do { my @r = (q$Revision: 1.10 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; +our $VERSION = do { my @r = (q$Revision: 1.11 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; use Encode qw(:fallbacks); @@ -35,8 +35,7 @@ sub decode($$;$) my ($obj, $str, $chk) = @_; my $residue = ''; if ($chk){ - $str =~ s/([^\x00-\x7f].*)$//so; - $1 and $residue = $1; + $str =~ s/([^\x00-\x7f].*)$//so and $residue = $1; } $residue .= jis_euc(\$str); $_[1] = $residue if $chk; |