| … | … | ||
|---|---|---|---|
| 131 | $req =~ /^(?:\015\012)? | 131 | $req =~ /^(?:\015\012)? |
| 132 | (GET|HEAD) \040+ | 132 | (GET|HEAD) \040+ |
| 133 | ([^\040]+) \040+ | 133 | ([^\040]+) \040+ |
| 134 | HTTP\/([0-9]+\.[0-9]+) | 134 | HTTP\/([0-9]+\.[0-9]+) |
| 135 | \015\012/gx | 135 | \015\012/gx |
| 136 | or $self->err(403, "method not allowed", { Allow => "GET,HEAD" }); | 136 | or $self->err(405, "method not allowed", { Allow => "GET,HEAD" }); |
| 137 | 137 | ||
| 138 | $2 < 2 | 138 | $2 < 2 |
| 139 | or $self->err(506, "http protocol version not supported"); | 139 | or $self->err(506, "http protocol version not supported"); |
| 140 | 140 | ||
| 141 | $self->{method} = $1; | 141 | $self->{method} = $1; |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |