diff options
| author | Eric Wong <e@80x24.org> | 2022-12-10 10:01:43 +0000 |
|---|---|---|
| committer | Eric Wong <mwrap-perl@80x24.org> | 2022-12-10 20:24:54 +0000 |
| commit | 3aa81154d7363e30de61025a6d1bb661682ae08a (patch) | |
| tree | 8118c180c1f7929335a0b620ccc6fd75ffa7fc7b | |
| parent | 1f05b4eef468afbf9dc724e70cd8b69d7a7f91ca (diff) | |
| download | mwrap-3aa81154d7363e30de61025a6d1bb661682ae08a.tar.gz | |
Plack::App::URLMap (used by plackup --path=) adjusts SCRIPT_NAME and PATH_INFO, but not REQUEST_URI. We need to adjust REQUEST_URI since we don't want the URI-unescaped PATH_INFO.
| -rw-r--r-- | lib/Devel/Mwrap/Rproxy.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/Devel/Mwrap/Rproxy.pm b/lib/Devel/Mwrap/Rproxy.pm index 7955f55..811b503 100644 --- a/lib/Devel/Mwrap/Rproxy.pm +++ b/lib/Devel/Mwrap/Rproxy.pm @@ -56,6 +56,7 @@ sub list { sub call { # PSGI entry point my ($self, $env) = @_; my $uri = $env->{REQUEST_URI}; + $uri =~ s!\A\Q$env->{SCRIPT_NAME}\E!!; my $method = $env->{REQUEST_METHOD}; return list(@_) if $uri eq '/' && $method eq 'GET'; |