diff options
| author | fukachan <fukachan> | 2003-09-17 04:19:07 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2003-09-17 04:19:07 +0000 |
| commit | 3df4116618fd1f5f5bb00181e21503c7972787e2 (patch) | |
| tree | d35b04697598a1555a2d1de119dd999a664167e4 /cpan/lib/Jcode/Tr.pm | |
| parent | 3403ab4f986f211ac0342778080ef21bae409e43 (diff) | |
| download | fml8-Jcode-0-83.tar.gz fml8-Jcode-0-83.tar.bz2 fml8-Jcode-0-83.zip | |
Jcode-0.83Jcode-0-83
Diffstat (limited to 'cpan/lib/Jcode/Tr.pm')
| -rw-r--r-- | cpan/lib/Jcode/Tr.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/cpan/lib/Jcode/Tr.pm b/cpan/lib/Jcode/Tr.pm index 28aac783..9f226267 100644 --- a/cpan/lib/Jcode/Tr.pm +++ b/cpan/lib/Jcode/Tr.pm @@ -1,5 +1,5 @@ # -# $Id: Tr.pm,v 0.77 2002/01/14 11:06:55 dankogai Exp $ +# $Id: Tr.pm,v 0.78 2002/05/03 00:20:16 dankogai Exp $ # package Jcode::Tr; @@ -7,8 +7,8 @@ package Jcode::Tr; use strict; use vars qw($VERSION $RCSID); -$RCSID = q$Id: Tr.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 }; +$RCSID = q$Id: Tr.pm,v 0.78 2002/05/03 00:20:16 dankogai Exp $; +$VERSION = do { my @r = (q$Revision: 0.78 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; use Carp; @@ -35,7 +35,7 @@ sub tr { sub _maketable{ my( $from, $to, $opt ) = @_; - + $opt ||= ''; $from =~ s/($RE{EUC_0212}-$RE{EUC_0212})/&_expnd3($1)/geo; $from =~ s/($RE{EUC_KANA}-$RE{EUC_KANA})/&_expnd2($1)/geo; $from =~ s/($RE{EUC_C }-$RE{EUC_C })/&_expnd2($1)/geo; |