Namazu-devel-ja(旧)


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

Perl-5.6.1 and test/mknmz-11 ? (Re: created stable-2-0 branch)



>                                                      藤原  誠
2.0.6pre1 を、
  NetBSD/macppc 1.5W (snapshot/20010618)
  chasen-2.02
  Text-ChaSen-1.03
  kakasi (無)
  perl 5.6.1
  gcc egcs-1.1.2
./configure-with-included-gettext

で作って、 一つだけ失敗しました。
  autoconf-2.13
  automake-1.4
  gettext-0.10.35
も入っていますが、この際関係ないですよね。

./mknmz-11: cannot open ../tests/idx14/NMZ.field.uri: no such file
test: -eq: argument expected
FAIL: mknmz-11

これを一つだけ、sh -xv で実行すると、次のような行が出て来るので、

./mknmz --allow='.*.txt' -O ../tests/$IDXDIR $TARGET >> $LOG 2>&1
+ ./mknmz --allow=.*.txt -O ../tests/idx14 /amd/jp/E/making/namazu-2.0.6pre1/tests/data/symlink

更に手で実行すると、
makoto@pm7500■ 8:40:08/010627(...namazu-2.0.6pre1/scripts)> \
./mknmz --allow='.*.txt -O' ../tests/idx14 /amd/jp/E/making/namazu-2.0.6pre1/tests/data/symlink
Looking for indexing files...
invalid top directory at /usr/local/lib/perl5/5.6.1/File/Find.pm line 295.

となります。
/usr/local/lib/perl5/5.6.1/File/Find.pm には次のようにあって、
    293 sub _find_opt {
    294     my $wanted = shift;
    295     die "invalid top directory" unless defined $_[0];
更に見ると
    741 sub find {
    742     my $wanted = shift;
    743     _find_opt(wrap_wanted($wanted), @_);
    744     %SLnkSeen= ();  # free memory
    745 }   

更に:
    723 sub wrap_wanted {
    724     my $wanted = shift;
    725     if ( ref($wanted) eq 'HASH' ) {
    726         if ( $wanted->{follow} || $wanted->{follow_fast}) {
    727             $wanted->{follow_skip} = 1 unless defined $wanted->{follow_skip};
    728         }
    729         if ( $wanted->{untaint} ) {
    730             $wanted->{untaint_pattern} = qr|^([-+@\w./]+)$|
    731                 unless defined $wanted->{untaint_pattern};
    732             $wanted->{untaint_skip} = 0 unless defined $wanted->{untaint_skip};
    733         }
    734         return $wanted;
    735     }
    736     else {
    737         return { wanted => $wanted };
    738     } 
    739 }   

これが 5.005_03 だと、
    197 sub wrap_wanted {
    198   my $wanted = shift;
    199   ref($wanted) eq 'HASH' ? $wanted : { wanted => $wanted };
    200 }
と書いてあるだけなので、
そういう問題でしょうか ??
$wanted って HASH ではない気がしますが、そうだとすると関係ない
ですね。
perl-5.6.1 で問題ない人いますか ?
---
http://www.ki.nu/software/namazu/tutorial/
(藤原)