… | … | ||
---|---|---|---|
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 |