[Mimedefang] REPOST: SECURITY: MIME-tools patch

[David F. Skoll]

Hi,

I just realized that PGP mangles patches.  Oh, well.  Here it is unsigned;
check the signed message to make sure you're not being trojaned. :-)

Regards,

David.

===================================================================
RCS file: /home/cvsroot/MIME-tools/lib/MIME/Field/ParamVal.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -p -r1.3 -r1.4
--- MIME-tools/lib/MIME/Field/ParamVal.pm	2004/10/06 18:55:27	1.3
+++ MIME-tools/lib/MIME/Field/ParamVal.pm	2004/10/27 01:41:02	1.4
@@ -236,7 +236,7 @@ sub parse_params {
 	$raw =~ m/\G$SPCZ\;$SPCZ/og or last;             # skip leading separator
 	$raw =~ m/\G($PARAMNAME)\s*=\s*/og or last;      # give up if not a param
 	$param = lc($1);
-	$raw =~ m/\G(\"([^\"]+)\")|\G($ENCTOKEN)|\G($BADTOKEN)|\G($TOKEN)/g or last;   # give up if no value"
+	$raw =~ m/\G(\"([^\"]*)\")|\G($ENCTOKEN)|\G($BADTOKEN)|\G($TOKEN)/g or last;   # give up if no value"
 	my ($qstr, $str, $enctoken, $badtoken, $token) = ($1, $2, $3, $4, $5);
 	if (defined($badtoken)) {
 	    # Strip leading/trailing whitespace from badtoken