diff options
| author | Peter Bex <peter@more-magic.net> | 2021-09-03 16:12:34 +0200 |
|---|---|---|
| committer | Peter Bex <peter@more-magic.net> | 2021-09-03 16:12:38 +0200 |
| commit | f3efa21fb78688b92022304bbb486f7c4eb3b7bb (patch) | |
| tree | a50793946b7a879c77357c9fdba5c2d35e4ac4b8 | |
| parent | 7b9b33e3626be5dc094b7a1629f8f8b2208799df (diff) | |
| download | http-client-f3efa21fb78688b92022304bbb486f7c4eb3b7bb.tar.gz | |
Also mangle the path when sending to a proxy
That path should also have a trailing slash just like when
requesting a regular URI. See #1781
| -rw-r--r-- | http-client.scm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/http-client.scm b/http-client.scm index a15f6e6..79638c1 100644 --- a/http-client.scm +++ b/http-client.scm @@ -591,8 +591,7 @@ host: #f port: #f scheme: #f))) ;; Update path only when it needs to be updated, to ;; avoid unnecessarily mangling it (see #1448) - (req-uri (if (or (http-connection-proxy con) - (not (memq (uri-path req-uri) '(() #f)))) + (req-uri (if (not (memq (uri-path req-uri) '(() #f))) req-uri (update-uri req-uri path: '(/ "")))) (request (write-request (update-request req uri: req-uri))) |