Bug 547748: Wrong parsing of email_in emails if some @field has no data

r/a=mkanat

diff --git a/email_in.pl b/email_in.pl
index 4254fbbd1699e4834ede3d4a0c1723a9f8c46536..f3172c760ec3a27db3226f4af2dde623cc5ac094 100755 (executable)
--- a/email_in.pl
+++ b/email_in.pl
@@ -106,7 +106,7 @@ sub parse_mail {
             # Otherwise, we stop parsing fields on the first blank line.
             $line = trim($line);
             last if !$line;
-            if ($line =~ /^\@(\S+)\s*(?:=|\s)\s*(.*)\s*/) {
+            if ($line =~ /^\@(\S+)\s*(?:=|\s|$)\s*(.*)\s*/) {
                 $current_field = lc($1);
                 $fields{$current_field} = $2;
             }