From 55a85924ccac943dc27bfead906f7b14e079c04d Mon Sep 17 00:00:00 2001
From: kgsoft <kgsoft@871d6764-1e22-0410-b313-a55050885396>
Date: Thu, 7 Dec 2017 13:54:48 +0000
Subject: [PATCH] =?utf8?q?jcode.pl-2.13=20=E5=AF=BE=E5=BF=9C=EF=BC=9Adefin?=
 =?utf8?q?ed(%hash)=20is=20deprecated?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 lib/jcode.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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;
 }
-- 
2.11.0