Namazu-devel-ja(旧)


[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: (codeconv.pl) LANG=ja, perl -d:DProf で中身が処理されない



>                                            千葉市中央区長洲
>                                                    藤原  誠
こちらの方法の方が、まわりくどいですが、まだましの気がします。
本当は
   @$contref = NKF::nkf($nkf_opt, $$contref);
ってやればいいのだろうけれど、これは
Not an ARRAY reference at ...../pl/codeconv.pl line 137,
と言われてしまいますし。

大切なことがあって、この変更だけで NMZ.p* が出来るようになり
ます。LANG=ja の時に問題があるというのは、本当はここ(だけ)が問
題だったのです。だとすると  LANG の説明は付きます。
---
(藤原)
http://www.ki.nu/software/namazu/tutorial
Index: pl/codeconv.pl
===================================================================
RCS file: /storage/cvsroot/namazu/pl/codeconv.pl,v
retrieving revision 1.11.8.3
diff -u -r1.11.8.3 codeconv.pl
--- pl/codeconv.pl	9 Jul 2003 15:19:33 -0000	1.11.8.3
+++ pl/codeconv.pl	29 Jul 2003 12:52:38 -0000
@@ -134,7 +134,10 @@
 	my $nkf_opt = "-emXZ1";
 
 	if ($var::USE_NKF_MODULE) {
-	    $$contref = NKF::nkf($nkf_opt, $$contref);
+	    my @result;
+	    my $resultref = \@result;   # fix for the problem at perl -d:DProf
+	       $resultref = $contref;
+	       @result = NKF::nkf($nkf_opt, $$contref);
 	} else {
 	    my $nkftmp = util::tmpnam("NMZ.nkf");
 	    {