| … | … | ||
|---|---|---|---|
| 57 | 57 | ||
| 58 | # escapes everything not allowed in a url hpath | 58 | # escapes everything not allowed in a url hpath |
| 59 | sub pesc($) { | 59 | sub pesc($) { |
| 60 | local $_ = shift; | 60 | local $_ = shift; |
| 61 | 61 | ||
| 62 | s/([^a-zA-z0-9\$\-_.+!*'(),;?&=\/])/sprintf "%02x", ord $1/ge; | 62 | s/([^a-zA-z0-9\$\-_.+!*'(),;?&=\/])/sprintf "%%%02x", ord $1/ge; |
| 63 | 63 | ||
| 64 | $_ | 64 | $_ |
| 65 | } | 65 | } |
| 66 | 66 | ||
| 67 | sub err($) { | 67 | sub err($) { |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |