namazu-ml(ring)

[Seiji Yamashita <s_yam@xxxxxxxxxxxx>]

山下＠リムネットです。

02/04 08:48 に kenzo-@xxxxxxxxxx さんは、
題名：[namazu 33] Re: mknmz(Namazu for Win32 1.3.0.2) doesn't work 
で書きました。

>ということでお家の Win98 君で試してみましたが、正常に動作してしまいます。
(中略)
>ので、Win95 特有の話みたいです。。 ;-(
(中略)
>可能でしたら、 Perl for Win32 の場合と kks225w3.exe の場合を
>試して頂けませんか？

　というわけで、いろいろと環境を変えて試してみたのですが、やはり同様なエ
ラーが出てしまっていました。

　しかたなくPerl勉強中の身ですが中を見させていただきました。結果をご報告し
ますと、パスの区切り文字のせいだということが分かりました。

　Namazu for Win32 1.3.0.2 の mknmz に対する差分を載せておきます。
$WAKATITMPの修正はもっと前にやっておいてもよいかと思いますが、何分まだよく
分かっておりませんので・・・ご勘弁を。

＃高林君に実験台として?Plamo Linux を入れてもらったマシンで
＃diff をとってみました。


orabidoo:~$ diff -rcNb mknmz.orig mknmz
*** mknmz.orig  Sun Feb  7 12:25:48 1999
--- mknmz       Sun Feb  7 12:25:47 1999
***************
*** 1615,1620 ****
--- 1615,1621 ----

      $full_path_name =~ /.*\Q$PSC\E(.*)$/;
      $fname = $1;
+     $full_path_name =~ s#/#\\# if $SYSTEM eq "MSWin32";
      if ( -e "$LIBDIR$PSC$fname") {
          $template = "$LIBDIR$PSC$fname";
      } else {
***************
*** 2091,2096 ****
--- 2092,2099 ----
      $month = sprintf("%02d", (localtime)[4] + 1);
      $year = get_year();

+     $file =~ s#/#\\# if $SYSTEM eq "MSWin32";
+
      if (-e $file) {
      # ファイルは EUC で読み込みます
      if ($LANGUAGE eq "ja") {
***************
*** 2367,2372 ****
--- 2370,2376 ----

      # わかち書き
      if ($LANGUAGE eq "ja") {
+     $WAKATITMP =~ s#/#\\# if $SYSTEM eq "MSWin32";
      wakatize_japanese($contents) if $kanji;
      }

*----------------------------------*
 !   山下 誠二   S.Yam(えすやむ)  !
  !  E-mail: s_yam@xxxxxxxxxxxx  !
   *----------------------------*  Team OS/2 Japan