namazu-dev(ring)

[Satoru Takabayashi <satoru-t@xxxxxxxxxxxxxxxxxx>]

藤原  誠/ Makoto Fujiwara <makoto@xxxxx> wrote:

>  高林さんのおっしゃるように find.pl に print を入れて、見つけ
>たものは消したつもりなのに、まだ問題が起きるので、調べたら、そ
>れとは別に譜名に改行文字が入っているものがありました。
>
>   そういうのがあるからいけないので、そこまで親切にする必要は
>ないという説もありますが、(とりあえず)今朝の版でまだ直っていな
>い気がします。

mknmz.pl.in の wanted() を修正して改行文字を含むファイル名を
除外するようにしました。

-- Satoru Takabayashi

Index: mknmz.pl.in
===================================================================
RCS file: /circus/cvsroot/namazu/src/mknmz.pl.in,v
retrieving revision 1.86
diff -c -r1.86 mknmz.pl.in
*** mknmz.pl.in	1999/12/16 07:31:10	1.86
--- mknmz.pl.in	1999/12/17 01:47:13
***************
*** 1196,1203 ****
  sub wanted ($$){
      my ($name, $rarray) = @_;
  
!     return if (defined $conf::EXCLUDE_REGEX && $name =~ /$conf::EXCLUDE_REGEX/);
!     
      if ($name !~ m!^.*/(($conf::DENY_REGEX)(\.gz|\.Z)?)$!i &&
  	$name =~ m!^.*/(($conf::ALLOW_REGEX)(\.gz|\.Z|\?.*)?)$!i && 
  	-f $name && -r $name)
--- 1196,1204 ----
  sub wanted ($$){
      my ($name, $rarray) = @_;
  
!     return if /[\n\r]/;  # skip a file name containing LF/CR chars.
!     return if(defined $conf::EXCLUDE_REGEX && $name =~ /$conf::EXCLUDE_REGEX/);
! 
      if ($name !~ m!^.*/(($conf::DENY_REGEX)(\.gz|\.Z)?)$!i &&
  	$name =~ m!^.*/(($conf::ALLOW_REGEX)(\.gz|\.Z|\?.*)?)$!i && 
  	-f $name && -r $name)