diff --git a/lib/Plack/HTTPParser/PP.pm b/lib/Plack/HTTPParser/PP.pm index 776caf660..9d85e4d4a 100644 --- a/lib/Plack/HTTPParser/PP.pm +++ b/lib/Plack/HTTPParser/PP.pm @@ -52,7 +52,7 @@ sub _parse_header { $env->{REQUEST_URI} = $uri; my($path, $query) = ( $uri =~ /^([^?]*)(?:\?(.*))?$/s ); - for ($path, $query) { s/\#.*?$// if length } # dumb clients sending URI fragments + for ($path, $query) { s/\#.*$// if length } # dumb clients sending URI fragments $env->{PATH_INFO} = URI::Escape::uri_unescape($path); $env->{QUERY_STRING} = $query || '';