namazu-ml(ring)

[Satoru Takabayashi <satoru-t@xxxxxxxxxxxxxxxxxx>]

Hideyuki SHIRAI (白井秀行) <shirai@xxxxxxxxxxxxxxxxxxx> wrote:

>Win32 で mknmz するとき、delete された file(?) があると、LF と
>CRLF が混じってしまい、次の mknmz のとき、
>
>ERROR: malformed NMZ.t format!
>
>と怒られます。一行パッチを付けておきます。

ありがとうございます。手元のコードに取り入れました。


>もうひとつなのですが、最近こちらの ML に参加したため、状況を良く
>知らないのですが、Win32 でサポートする Perl は ActivePerl だけで
>良いのでしょうか？ 私が Win95 で愛用している 5.004_04(*1)では
>Rename を OS-2 と同じ処理にしないと動きませんでした。

MSWin32 も同じ処理をするようにしました。

-- Satoru Takabayashi

*** mknmz.pl~	Fri Apr 16 16:35:23 1999
--- mknmz.pl	Fri Apr 16 17:14:30 1999
***************
*** 1879,1885 ****
--- 1879,1887 ----
  
  sub update_registration_file() {
      open(REGLIST, ">>$REGLIST") || die "$REGLIST: $!\n";;
+     binmode(REGLIST);
      open(REGLIST_, $REGLIST_) || die "$REGLIST_: $!\n";;
+     binmode(REGLIST);
      while (<REGLIST_>) {
  	print REGLIST $_;
      }
***************
*** 2722,2728 ****
      my ($from, $to) = @_;
  
      return unless -e $from;
!     unlink $to if ($SYSTEM eq "os2") && (-f $from) && (-f $to);
      if (0 == rename($from, $to)) {
  	die "rename($from, $to): $!\n";
      };
--- 2724,2730 ----
      my ($from, $to) = @_;
  
      return unless -e $from;
!     unlink $to if (-f $from) && (-f $to);  # some systems require this
      if (0 == rename($from, $to)) {
  	die "rename($from, $to): $!\n";
      };