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

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