namazu-ml(ring)

[kenzo-@xxxxxxxxxx (Ken-ichi Hirose)]

広瀬＠風邪ひきました T_T です。

<199904160739.QAA25229@xxxxxxxxxxxxxx>の記事において
satoru-t@xxxxxxxxxxxxxxxxxxさんは書きました。
>> v1.3.0.7-pre-1 を作りました。報告のあったバグは一通り修正し
>> たつもりです。2,3日待って問題が見つからなければそのまま 

間に合ったかな？ 

>> v1.3.0.7 としてリリースします。
>> 
>> <http://saturn.aichi-u.ac.jp/~ccsatoru/Namazu/proto/namazu-1.3.0.7-pre-1.tar.gz>

以前、山下さんから報告を頂いた問題を修正する patch を送りますので、
宜しくお願い致します。

*** mknmz.pl.org	Mon Apr 19 02:23:38 1999
--- mknmz.pl	Mon Apr 19 02:25:30 1999
***************
*** 1249,1254 ****
--- 1249,1255 ----
      # $URL_PREFIX が \t なら $target_dir の cwd を元にセット v1.1.1
      $URL_PREFIX = cwd() . "$PSC" if $URL_PREFIX eq "\t";
      find::findfiles($PSC) unless @FList;
+     grep(s/(\/|\\)+/\\/g, @FList) if ($SYSTEM eq "MSWin32"); 
      chdir $current_dir;
  
      $file_segment = do_append_preprocessing() if -e $REGLIST;
***************
*** 1445,1450 ****
--- 1446,1453 ----
      if ($SYSTEM eq "MSWin32") {
          $target_dir =~ s/\//\\/g;
          $output_dir =~ s/\//\\/g;
+ 	$target_dir =~ s|\Q$PSC\E*$||;
+ 	$output_dir =~ s|\Q$PSC\E*$||;
      }
      ($output_dir, $target_dir);
  }

  Best regards,
--
Ken-ichi Hirose (^^)k!
e-mail: kenzo-@xxxxxxxxxx (or) EHC25612@xxxxxxxxxxx