namazu-ml(avocado)

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

mknmz v1.2.0.1 for Win32 patch

広瀬と申します。

mknmz の $LIBDIR の drive letter patch をお送り致します。

OS2 の方もこれで大丈夫ですか？ ＞ 清水さん

OS2 で問題無ければ次回の release で反映して下さい。 ＞ 高林さん
＃問題があったら WIN32 に特化した形にします。

---8<------8<------8<------8<------8<------8<------8<------8<------8<------8<------8<--

*** mknmz.pl.orig	Wed Jul 15 10:27:28 1998
--- mknmz.pl	Wed Jul 15 10:58:18 1998
***************
*** 356,361 ****
--- 356,362 ----
      } elsif (($SYSTEM eq "WIN32") || ($SYSTEM eq "OS2")) {
  	$PSC = "\\";
  	$CCS = "sjis";
+ 	$0 =~ m#^([A-Z]:)(/|\\)#i , $LIBDIR = $1 . $LIBDIR if ($LIBDIR !~ /^[A-Z]:/i);
      }
      $LIBDIR2 = cwd() . "${PSC}..${PSC}lib";
  }

---8<------8<------8<------8<------8<------8<------8<------8<------8<------8<------8<--

   Best regards,
--
Ken-ichi Hirose (^^)k!
e-mail: hirose@xxxxxxxxxxxxxxxxxxxx