Fix: Accept leading/trailing whitespace for Last-modified pseudo header.

Fixes #5.

Signed-off-by: Thomas Hochstein <thh@inter.net>
This commit is contained in:
Thomas Hochstein 2010-05-15 16:53:48 +02:00
parent 994d975969
commit 2ae816cb55

View file

@ -263,7 +263,7 @@ sub postfaq {
s/\r//; s/\r//;
push (@Body, $_), next if $InRealBody; push (@Body, $_), next if $InRealBody;
$InRealBody++ if /^$/; $InRealBody++ if /^$/;
$LastModified = $1 if /^Last-modified: (\S+)$/i; $LastModified = $1 if /^Last-modified:\s*(\S+)\s*$/i;
push @Body, $_; push @Body, $_;
} }
close FH; close FH;