Namazu-devel-ja(旧)

[藤原 誠 / Makoto Fujiwara <makoto@xxxxx>]

>                                            千葉市中央区長洲
>                                                    藤原  誠
特に議論がなかったので commit しました。それと英語の方も合せて
おいたつもりです。

別件ですが、ずうっと昔に一度話題になって、
http://www.namazu.org/ml/namazu-devel-ja/msg01227.html
最近も一度 users-ja で出た件を直しました。

この近所にも、似たものがあるので、ここも直した方がいいような
気がするのですが、「気がする」以上の根拠がなかったのでそのまま
にしてあります。次の中の下から二行目です。

pl/util.pl 111-123 行目付近
+----------------------------
sub readfile ($) {
    my ($arg) = @_;

    my $fh;
    if (ref $arg) {
	if ($arg =~ /^(IO::File|FileHandle)/) {
	    $fh = $arg;
	} else {
	    warn "$arg: "._("not an IO::File/FileHandle object!\n");
	    return '';
	}
    } else {
	$fh = efopen($arg);
    }
+----------------------------
---
(藤原)
http://www.ki.nu/software/namazu/tutorial/