diff options
| author | fukachan <fukachan> | 2002-04-14 08:20:37 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-04-14 08:20:37 +0000 |
| commit | 3403ab4f986f211ac0342778080ef21bae409e43 (patch) | |
| tree | 0ad5dbc52c620c0453ff86ec168e8b9f64e5cb22 /cpan/lib/Jcode/H2Z.pm | |
| parent | b9cb387d093c2435a928bddb36d624ffb358cc69 (diff) | |
| download | fml8-Jcode-0-79.tar.gz fml8-Jcode-0-79.tar.bz2 fml8-Jcode-0-79.zip | |
Jcode-0.79Jcode-0-79
Diffstat (limited to 'cpan/lib/Jcode/H2Z.pm')
| -rw-r--r-- | cpan/lib/Jcode/H2Z.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/cpan/lib/Jcode/H2Z.pm b/cpan/lib/Jcode/H2Z.pm index 53c81201..c5706c76 100644 --- a/cpan/lib/Jcode/H2Z.pm +++ b/cpan/lib/Jcode/H2Z.pm @@ -1,5 +1,5 @@ # -# $Id: H2Z.pm,v 0.70 2001/05/15 19:35:59 dankogai Exp $ +# $Id: H2Z.pm,v 0.77 2002/01/14 11:06:55 dankogai Exp $ # package Jcode::H2Z; @@ -7,8 +7,8 @@ package Jcode::H2Z; use strict; use vars qw($RCSID $VERSION); -$RCSID = q$Id: H2Z.pm,v 0.70 2001/05/15 19:35:59 dankogai Exp $; -$VERSION = do { my @r = (q$Revision: 0.70 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; +$RCSID = q$Id: H2Z.pm,v 0.77 2002/01/14 11:06:55 dankogai Exp $; +$VERSION = do { my @r = (q$Revision: 0.77 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; use Carp; @@ -157,7 +157,7 @@ sub z2h { my $r_str = shift; my $n = ( $$r_str =~ s( - ($RE{EUC_C}) + ($RE{EUC_C}|$RE{EUC_0212}|$RE{EUC_KANA}) ){ $_Z2D{$1} || $_Z2H{$1} || $1; }eogx |