jcode.plのエラー抑制

履歴閲覧: 最新 2019/07/09 2019/07/08 2019/07/08 2019/06/30 2019/06/30 2019/06/17 2019/06/14 2019/06/11 {2003/04/10[差分表示]}

---

rotooldで必要になったので、jcode.plが原因で出るwarningメッセージを抑制するpatchを書きました。
このpatchを適用することで、"Use of uninitialized value in concatenation (.) or string at jcode.pl line 645."というwarningを抑制できるようになります。
他にも必要な方がいるかもしれないので公開しておきます。

--- jcode.pl    2003-04-10 18:59:04.000000000 +0900
+++ jcode.pl_-warn.01   2003-04-10 19:01:20.000000000 +0900
@@ -26,7 +26,12 @@
 ;#
 ;#     ftp://ftp.iij.ad.jp/pub/IIJ/dist/utashiro/perl/
 ;#
-;; $rcsid = q$Id: jcode.pl,v 2.13 2000/09/29 16:10:05 utashiro Exp $;
+;; $rcsid = q$Id: jcode.pl_-warn.01,v 1.1 2003/04/10 10:01:20 white Exp $;
+;#
+;######################################################################
+;#
+;# Ad hoc patch for reduce waring on h2z_euc
+;#     by NAKATA Yoshinori (white@niu.ne.jp) , 2003/04/10
 ;#
 ;######################################################################
 ;#
@@ -643,7 +648,11 @@
 sub h2z_euc {
     local(*s) = @_;
     $s =~ s/\216([\241-\337])(\216([\336\337]))?/
-       $h2z{"$1$3"} || $h2z{$1} . $h2z{$3}
+       if(defined $3){
+           $h2z{"$1$3"} || $h2z{"$1"} . $h2z{"$3"};
+       }else{
+           $h2z{"$1"};
+       }
     /ge;
 }