perlで不具合(jcode.pl)2020/09/20 11:21:32

久しぶりにperlのプログラムを動かしたらエラーとなった。
バージョンアップに伴う変更によるものらしいが、差分は下記の通り。
% diff -u jcode.pl.org jcode.pl
--- jcode.pl.org 2003-02-13 01:47:30.000000000 +0900
+++ jcode.pl 2020-09-20 11:20:46.896737373 +0900
@@ -681,7 +681,7 @@

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_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;
}
%