Lines 1-7
Link Here
|
1 |
--- jcode.pl.orig 2010-07-28 14:46:52.000000000 +0900 |
1 |
--- jcode.pl.orig 2017-09-23 14:20:47 UTC |
2 |
+++ jcode.pl 2010-07-28 14:51:52.000000000 +0900 |
2 |
+++ jcode.pl |
3 |
@@ -681,7 +681,7 @@ |
3 |
@@ -681,7 +681,7 @@ sub __z2h_jis { |
4 |
|
4 |
|
5 |
sub z2h_euc { |
5 |
sub z2h_euc { |
6 |
local(*s, $n) = @_; |
6 |
local(*s, $n) = @_; |
7 |
- &init_z2h_euc unless defined %z2h_euc; |
7 |
- &init_z2h_euc unless defined %z2h_euc; |
Lines 9-16
Link Here
|
9 |
$s =~ s/($re_euc_c|$re_euc_kana)/ |
9 |
$s =~ s/($re_euc_c|$re_euc_kana)/ |
10 |
$z2h_euc{$1} ? ($n++, $z2h_euc{$1}) : $1 |
10 |
$z2h_euc{$1} ? ($n++, $z2h_euc{$1}) : $1 |
11 |
/geo; |
11 |
/geo; |
12 |
@@ -690,7 +690,7 @@ |
12 |
@@ -690,7 +690,7 @@ sub z2h_euc { |
13 |
|
13 |
|
14 |
sub z2h_sjis { |
14 |
sub z2h_sjis { |
15 |
local(*s, $n) = @_; |
15 |
local(*s, $n) = @_; |
16 |
- &init_z2h_sjis unless defined %z2h_sjis; |
16 |
- &init_z2h_sjis unless defined %z2h_sjis; |