| … | … | ||
|---|---|---|---|
| 164 | my (%hdr, $h, $v); | 164 | my (%hdr, $h, $v); |
| 165 | 165 | ||
| 166 | $hdr{lc $1} .= ",$2" | 166 | $hdr{lc $1} .= ",$2" |
| 167 | while $req =~ /\G | 167 | while $req =~ /\G |
| 168 | ([^:\000-\040]+): | 168 | ([^:\000-\040]+): |
| 169 | [\008\040]* | 169 | [\010\040]* |
| 170 | ((?: [^\015\012]+ | \015\012[\008\040] )*) | 170 | ((?: [^\015\012]+ | \015\012[\010\040] )*) |
| 171 | \015\012 | 171 | \015\012 |
| 172 | /gxc; | 172 | /gxc; |
| 173 | 173 | ||
| 174 | $req =~ /\G\015\012$/ | 174 | $req =~ /\G\015\012$/ |
| 175 | or $self->err(400, "bad request"); | 175 | or $self->err(400, "bad request"); |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |