POP3 と UI に同時アクセスした際にフリーズすることがある問題

問題を緩和するパッチ

*** Classifier\MailParse.pm-0225	Mon Oct 23 16:05:20 2006
--- Classifier\MailParse.pm	Fri Dec 21 15:59:40 2007
***************
*** 1430,1442 ****
  
      my $size_read = 0;
  
      open MSG, "<$file";
!     binmode MSG;
  
      # Read each line and find each "word" which we define as a sequence of alpha
      # characters
  
!     while (<MSG>) {
          $size_read += length($_);
          $self->parse_line( $_ );
          if ( ( $max_size > 0 ) &&
--- 1430,1445 ----
  
      my $size_read = 0;
  
+     wait() if ( ($^O eq 'MSWin32') && ($$ > 0) ); # Wait for child processes.
      open MSG, "<$file";
!     my @msg = <MSG>;
!     close MSG;
!     wait() if ( ($^O eq 'MSWin32') && ($$ > 0) ); # Wait for child processes.
  
      # Read each line and find each "word" which we define as a sequence of alpha
      # characters
  
!     foreach (@msg) {
          $size_read += length($_);
          $self->parse_line( $_ );
          if ( ( $max_size > 0 ) &&
***************
*** 1444,1451 ****
              last;
          }
      }
- 
-     close MSG;
  
      $self->stop_parse();
  
--- 1447,1452 ----