Inline uri_unescape to drop URI::Escape which is the only non-core

dependency of this distribution.
bigpresh · Feb 4, 2010 · 1da1edb · 1da1edb
1 parent d56eaf4
commit 1da1edb
Show file tree

Hide file tree

Showing 3 changed files with 1 addition and 3 deletions.
diff --git a/Makefile.PL b/Makefile.PL
@@ -7,7 +7,6 @@ requires(
     Socket      => 0,
     Test::More  => 0,
     CGI         => 0,
-    URI::Escape => 0
 );
 
 WriteAll( sign => 1);
diff --git a/lib/HTTP/Server/Simple.pm b/lib/HTTP/Server/Simple.pm
@@ -5,7 +5,6 @@ package HTTP::Server::Simple;
 use FileHandle;
 use Socket;
 use Carp;
-use URI::Escape;
 
 use vars qw($VERSION $bad_request_doc);
 $VERSION = '0.41_01';

diff --git a/lib/HTTP/Server/Simple/CGI/Environment.pm b/lib/HTTP/Server/Simple/CGI/Environment.pm
@@ -84,7 +84,7 @@ sub setup_environment_from_metadata {
 
     # Apache and lighttpd both do one layer of unescaping on
     # path_info; we should duplicate that.
-    $ENV{PATH_INFO} = URI::Escape::uri_unescape($ENV{PATH_INFO});
+    $ENV{PATH_INFO} =~ s/%([0-9A-Fa-f]{2})/chr(hex($1))/eg;
 }
 
 =head2  header