Fix: Accept case-insensitive Last-modified pseudo header.
Signed-off-by: Thomas Hochstein <thh@inter.net>
This commit is contained in:
parent
15dd764aad
commit
8e1cb154c3
|
@ -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;
|
||||||
|
|
Loading…
Reference in a new issue