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/
(藤原)