From 59a100ec439092d24dd918cc4e9ed875b52797b5 Mon Sep 17 00:00:00 2001
From: Tim Pierce <twp@curoverse.com>
Date: Tue, 2 Dec 2014 16:12:42 -0500
Subject: [PATCH] 4621: undo lean_uri_escape changes

---
 sdk/perl/lib/Arvados/Request.pm | 12 ++----------
 1 file changed, 2 insertions(+), 10 deletions(-)

diff --git a/sdk/perl/lib/Arvados/Request.pm b/sdk/perl/lib/Arvados/Request.pm
index f2a9b63631..07ca763d2b 100644
--- a/sdk/perl/lib/Arvados/Request.pm
+++ b/sdk/perl/lib/Arvados/Request.pm
@@ -49,9 +49,9 @@ sub process_request
     my $content;
     while (($p, $v) = each %content) {
         $content .= '&' unless $content eq '';
-        $content .= lean_uri_escape($p);
+        $content .= uri_escape($p);
         $content .= '=';
-        $content .= lean_uri_escape($v);
+        $content .= uri_escape($v);
     }
     $self->{'req'}->content_type("application/x-www-form-urlencoded; charset='utf8'");
     $self->{'req'}->content(Encode::encode('utf8', $content));
@@ -94,12 +94,4 @@ sub get_headers
     ""
 }
 
-# lean_uri_escape consumes about half as much memory
-# as URI::Escape::uri_escape.
-sub lean_uri_escape {
-    my ($text) = @_;
-    $text =~ s/([^A-Za-z0-9\-\._~])/$URI::Escape::escapes{$&}/ge;
-    return $text;
-}
-
 1;
-- 
2.30.2