namazu-ml(avocado)


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

mknmz.pl findfiles()



古川です。

mknmz.pl の sub preparation_process の中に、

    $file_segment = &findfiles unless @FList;

というところがありますが、この findfiles が、最近の版では

sub findfiles () {
    my ($file_segment, $tmp);

    &find(cwd());
    $file_segment = &appendprepare if -e $REGLIST;
    foreach $tmp (@FList) {
	$tmp =~ s/^$TARGET_DIR/./;
    }
}

のように、foreach ループが追加されています。そのため、$file_segment が
返されなくなったようです。副作用として、Append の際のファイル番号が、
おかしくなっています。

    return $file_segment;

を追加したほうがよいかと思います。

-- 

                                        ヤマハ(株)ピアノプレーヤ設計課
                                                              古川 令
                                             furukawa@xxxxxxxxxxxxxxxx