From: kgsoft <kgsoft@871d6764-1e22-0410-b313-a55050885396>
Date: Thu, 7 Dec 2017 13:54:48 +0000 (+0000)
Subject: jcode.pl-2.13 対応：defined(%hash) is deprecated
X-Git-Tag: fswikilite0_1_0~7
X-Git-Url: http://git.osdn.net/view?p=fswiki%2Ffswiki-lite.git;a=commitdiff_plain;h=55a85924ccac943dc27bfead906f7b14e079c04d

jcode.pl-2.13 対応：defined(%hash) is deprecated
---

diff --git a/lib/jcode.pl b/lib/jcode.pl
index fc13c4b..753daf0 100644
--- a/lib/jcode.pl
+++ b/lib/jcode.pl
@@ -681,7 +681,7 @@ sub __z2h_jis {
 
 sub z2h_euc {
     local(*s, $n) = @_;
-    &init_z2h_euc unless defined %z2h_euc;
+    &init_z2h_euc if !%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 if !%z2h_sjis;
     $s =~ s/($re_sjis_c)/$z2h_sjis{$1} ? ($n++, $z2h_sjis{$1}) : $1/geo;
     $n;
 }