| … | … | ||
|---|---|---|---|
| 298 | my (%hdr, $h, $v); | 298 | my (%hdr, $h, $v); |
| 299 | 299 | ||
| 300 | $hdr{lc $1} .= ",$2" | 300 | $hdr{lc $1} .= ",$2" |
| 301 | while $req =~ /\G | 301 | while $req =~ /\G |
| 302 | ([^:\000-\040]+): | 302 | ([^:\000-\040]+): |
| 303 | [\010\040]* | 303 | [\011\040]* |
| 304 | ((?: [^\015\012]+ | \015\012[\010\040] )*) | 304 | ((?: [^\015\012]+ | \015\012[\011\040] )*) |
| 305 | \015\012 | 305 | \015\012 |
| 306 | /gxc; | 306 | /gxc; |
| 307 | 307 | ||
| 308 | $req =~ /\G\015\012$/ | 308 | $req =~ /\G\015\012$/ |
| 309 | or $self->err(400, "bad request"); | 309 | or $self->err(400, "bad request"); |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |