On Wed, Jan 26, 2005 at 07:55:35AM -0000, [EMAIL PROTECTED] wrote:
> - if ($header =~ /^content-type:\s*(\S.*)$/is) {
> - my($type,$temp_boundary) =
> Mail::SpamAssassin::Util::parse_content_type($1);
> + if ($header =~ /^Content-Type:/i) {
> + my ($type, $temp_boundary) =
> + Mail::SpamAssassin::Util::parse_content_type($header);
-1
The previous version just passed in the header's contents, now you're passing
in the whole header. parse_content_type() doesn't know how to deal with that.
Ala:
$ perl -e 'use lib "."; use Mail::SpamAssassin::Util; print join("\n",
Mail::SpamAssassin::Util::parse_content_type($ARGV[0]),"");' "text/plain;
boundary=foo"
text/plain
foo
vs:
$ perl -e 'use lib "."; use Mail::SpamAssassin::Util; print join("\n",
Mail::SpamAssassin::Util::parse_content_type($ARGV[0]),"");' "Content-Type:
text/plain; boundary=foo"
content-typetext/plain
foo
--
Randomly Generated Tagline:
In every non-trivial program there is at least one bug.
pgpjB1THphwwW.pgp
Description: PGP signature
