20 lines
569 B
Perl
20 lines
569 B
Perl
--- jcode.pl.orig 2010-07-28 14:46:52.000000000 +0900
|
|
+++ jcode.pl 2010-07-28 14:51:52.000000000 +0900
|
|
@@ -681,7 +681,7 @@
|
|
|
|
sub z2h_euc {
|
|
local(*s, $n) = @_;
|
|
- &init_z2h_euc unless defined %z2h_euc;
|
|
+ &init_z2h_euc unless %z2h_euc;
|
|
$s =~ s/($re_euc_c|$re_euc_kana)/
|
|
$z2h_euc{$1} ? ($n++, $z2h_euc{$1}) : $1
|
|
/geo;
|
|
@@ -690,7 +690,7 @@
|
|
|
|
sub z2h_sjis {
|
|
local(*s, $n) = @_;
|
|
- &init_z2h_sjis unless defined %z2h_sjis;
|
|
+ &init_z2h_sjis unless %z2h_sjis;
|
|
$s =~ s/($re_sjis_c)/$z2h_sjis{$1} ? ($n++, $z2h_sjis{$1}) : $1/geo;
|
|
$n;
|
|
}
|