Fix: Accept case-insensitive Last-modified pseudo header.

Signed-off-by: Thomas Hochstein <thh@inter.net>
This commit is contained in:
Thomas Hochstein 2010-02-21 18:39:05 +01:00
parent 15dd764aad
commit 8e1cb154c3

View file

@ -161,7 +161,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+)$/; $LastModified = $1 if /^Last-modified: (\S+)$/i;
push @Body, $_; push @Body, $_;
} }
close FH; close FH;