hayajo/gist:1062957

## gistfile1.diff
--- Plack/HTTPParser/PP.pm.org  2011-05-26 16:21:15.000000000 +0900
+++ Plack/HTTPParser/PP.pm      2011-07-01 17:23:18.000000000 +0900
@@ -52,7 +52,7 @@
     $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 (defined && length) } # dumb clients sending URI fragments

     $env->{PATH_INFO}    = URI::Escape::uri_unescape($path);
     $env->{QUERY_STRING} = $query || '';
	--- Plack/HTTPParser/PP.pm.org 2011-05-26 16:21:15.000000000 +0900
	+++ Plack/HTTPParser/PP.pm 2011-07-01 17:23:18.000000000 +0900
	@@ -52,7 +52,7 @@
	$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 (defined && length) } # dumb clients sending URI fragments

	$env->{PATH_INFO} = URI::Escape::uri_unescape($path);
	$env->{QUERY_STRING} = $query \|\| '';