http://bugzilla.spamassassin.org/show_bug.cgi?id=3155





------- Additional Comments From [EMAIL PROTECTED]  2004-03-11 22:55 -------
Okay, in Message.pm:

  # Ok, go ahead and do the message "parsing"
  my($opts) = @_;
  my $message = $opts->{'message'} || \*STDIN;    <------- seems likely
  my $parsenow = $opts->{'parsenow'} || 0;

  # protect it from abuse ...
  local $_;

  # Figure out how the message was passed to us, and deal with it.
  my @message;
  if (ref $message eq 'ARRAY') {
     @message = @{$message};
  }
  elsif (ref $message eq 'GLOB') {
    if (defined fileno $message) {
      @message = <$message>;                  <------ this is where it stops
    }
  }
  else {
    @message = split ( /^/m, $message );
  }




------- You are receiving this mail because: -------
You are the assignee for the bug, or are watching the assignee.

Reply via email to