namazu-ml(ring)

[Satoru Takabayashi <ccsatoru@xxxxxxxxxxxxxxxxxx>]

yoshihide hirose <hirose@xxxxxxxxxxxxxxx> wrote:

>　>確かに気になりますね。何が原因なのだろう…。 diff を
>　>取るとどうなりますか? 
>
>1.3.1.0-alpha-11のNMZ.wとのdiffなんですが、mailに
>付けるのが、はばかられる文字コードが入っているようなので
>http://w3.fast.co.jp/NAMAZU/
>に置いておきました。

とりあえずパッチを作りました。これで直ると良いのですが (たぶんたい
した問題ではない)。

-- Satoru Takabayashi

Index: mknmz.pl.in
===================================================================
RCS file: /home/satoru/cvsroot/namazu/src/mknmz.pl.in,v
retrieving revision 1.8
retrieving revision 1.9
diff -c -r1.8 -r1.9
*** mknmz.pl.in	1999/02/15 06:46:41	1.8
--- mknmz.pl.in	1999/02/15 22:18:07	1.9
***************
*** 366,372 ****
      $$contents =~ s/\r/\n/g;      # CR+LF or CR are into LF
  
      # Control characters be into space
!     my $ctrl = $$contents =~ tr/\x00-\x09\x0b-\x1f\xff/   /;
      my $kanji = $$contents =~ tr/\xa1-\xfe/\xa1-\xfe/;  # Kanji contained?
  
      return ($size, $ctrl, $kanji);
--- 366,372 ----
      $$contents =~ s/\r/\n/g;      # CR+LF or CR are into LF
  
      # Control characters be into space
!     my $ctrl = $$contents =~ tr/\x00-\x09\x0b-\x1f\x7f\xff/    /;
      my $kanji = $$contents =~ tr/\xa1-\xfe/\xa1-\xfe/;  # Kanji contained?
  
      return ($size, $ctrl, $kanji);