[Mew-dist 2376] Re: imget の改行コード

[Shuichi Kitaguchi]

From: OKUNISHI Fujikazu <fuji0924 at example.com>
Subject: [Mew-dist 2374] Re: imget の改行コード
Date: Sun, 05 Oct 1997 20:56:39 +0900 (JST)

北口＠奈良先端大 です。

> OS/2 の gnspool で取り込んでおいた =hoge な CRLF のスプールであろうが、
> 先のパッチで LF にしてある +hoge なメイルであろうが関係なく imls --grep
> はできているので、DOSish な Perl が行末コードによって動作が左右される
> とは到底考えられません..(?_?)

その通りです。行末コードは全然関係ありませんでした
私が書いたのも嘘でした(すみません)。

> の問題なのではないでしょうか? コマンドラインから実行すれば原因が切り分
> けられると思います。

例によって、

*** imgrep.in.original	Sun Oct 05 21:35:47 1997
--- imgrep.in	Sun Oct 05 21:36:25 1997
***************
*** 233,240 ****
      my ($escape, $pos, $len) = (0) x 3;
      my ($token, $quote) = ('') x 2;
  
    LEX:
!     foreach my $str (split($STOPCHARS, $expr)) {
  
  	next LEX if ($str eq '');
  
--- 233,241 ----
      my ($escape, $pos, $len) = (0) x 3;
      my ($token, $quote) = ('') x 2;
  
+     my $str;
    LEX:
!     foreach $str (split($STOPCHARS, $expr)) {
  
  	next LEX if ($str eq '');
  
***************
*** 308,315 ****
      my ($status, $paren) = (0) x 2;
      my ($field, $pattern, $string) = ('') x 3;
  
    PARSE:
!      foreach my $token (@tokens) {
  	
  #	 print "$token->[0]:$token->[1]:$status\n";
  	 
--- 309,317 ----
      my ($status, $paren) = (0) x 2;
      my ($field, $pattern, $string) = ('') x 3;
  
+ #    my $token;
    PARSE:
!      foreach $token (@tokens) {
  	
  #	 print "$token->[0]:$token->[1]:$status\n";
  	 

という話でした。
# 下のはコメントアウトしないとエラーになってしまいます。
# これではよくないような気もしますが、一応動いています。


"foreach my $hogehoge..." のようなものがないか全部調べて修正
するか、Perl 5.004 をコンパイルするかした方がいいですね...


--==| Shuichi Kitaguchi : shuuic-k at example.com |
    |     / kit at example.com / shkit at example.com |==--