blob: c67cd0e36e976c188e18109c8057a889f45528df (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
$NetBSD: patch-aa,v 1.1 2010/09/06 12:18:19 taca Exp $
Fix for perl 5.12.
--- jcode.pl-2.13.orig 2010-09-02 02:42:04.000000000 +0000
+++ jcode.pl-2.13
@@ -681,7 +681,7 @@ sub __z2h_jis {
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_euc {
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;
}
|
