namazu-ml(ring)

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

広瀬です。

<199905020431.NAA10378@xxxxxxxxxxxxxx>の記事において
satoru-t@xxxxxxxxxxxxxxxxxxさんは書きました。
>> <http://openlab.ring.gr.jp/namazu/proto/namazu-1.3.0.7-pre-3.tar.gz>
>> に置いておきました。しばらく待って問題が見つからないようなら
>> ばそのまま v1.3.0.7 としてリリースします。

ずいぶん間が空いてしまいましたが。。
 mknmz の path に 0x7C が含まれるとまずい件の 1.3.0.7 向け patch です。 

宜しくお願いします。


*** mknmz.pl.org	Tue May 11 21:24:06 1999
--- mknmz.pl	Tue May 11 21:33:38 1999
***************
*** 594,599 ****
--- 594,616 ----
      $size = -s $cfile;
      return ($size, $ctrl, 0) if $size > $FILE_SIZE_LIMIT;
  
+     # for handling a file which contains Shift_JIS code
+     my $shelter_cfile = "";
+     my $shelter_ext = "";
+     if ($SYSTEM eq "MSWin32" 
+ 	&& $cfile =~ /[\x81-\x9f\xe0-\xef][\x40-\x7e\x80-\xfc]|[\x20\xa1-\xdf]/) 
+     {
+ 	$shelter_cfile = $cfile;
+ 	$cfile = $TMP_W;
+     while ($shelter_cfile =~ /^.*\.($HELPER_EXTENSIONS)$/o) {
+ 	$shelter_ext = $1;
+     $cfile .= '.'.$shelter_ext;
+ 	last;
+     } 
+ 	use File::Copy;
+ 	copy("$shelter_cfile","$cfile");
+     }
+ 
      $filter = "";    
      while ($cfile =~ /^.*\.($HELPER_EXTENSIONS)$/) {
  	$ext = $1;
***************
*** 633,638 ****
--- 650,661 ----
      $filter =~ s|\\|\\\\|g if $SYSTEM eq "os2";
      open(CFILE, $filter) || die "$cfile: $!\n";
      $$contents = join("", <CFILE>);
+ 
+     # for handling a file which contains Shift_JIS code
+     if ($SYSTEM eq "MSWin32" && $shelter_cfile ne "") {
+ 	unlink "$cfile.$shelter_ext";
+ 	$cfile = $shelter_cfile;
+     }
  
      # if a zipped file, the size has been changed
      if ($zipped) {

あと tknamazu がらみでもう１点あるのでもう少し待っていただけますか？

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