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:
parent
994d975969
commit
2ae816cb55
|
@ -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;
|
||||||
|
|
Loading…
Reference in a new issue