[libnet-openid-common-perl] 02/03: use URI::Escape instead of internal encoder

[gregor herrmann]

This is an automated email from the git hooks/post-receive script.

gregoa pushed a commit to annotated tag v1.030099_003
in repository libnet-openid-common-perl.

commit 5448bad769e64f98324a713fcc61f8331fcd890a
Author: Robert Norris <rob at eatenbyagrue.org>
Date:   Sat Jan 1 12:40:31 2011 +1100

    use URI::Escape instead of internal encoder
---
 Changes                  | 2 ++
 lib/Net/OpenID/Common.pm | 3 ++-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/Changes b/Changes
index 51326cc..fe5d284 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,7 @@
 {{$NEXT}}
 
+    * Replace URL escaper with calls to URI::Escape (Robert Norris)
+
     * Removed JSON encoder in favour of using JSON::encode_json directly in
       N::O::Server and N::O::Consumer (Robert Norris)
 
diff --git a/lib/Net/OpenID/Common.pm b/lib/Net/OpenID/Common.pm
index 7f3e7c0..ad957da 100644
--- a/lib/Net/OpenID/Common.pm
+++ b/lib/Net/OpenID/Common.pm
@@ -30,6 +30,7 @@ use Crypt::DH::GMP;
 use Math::BigInt;
 use Time::Local ();
 use MIME::Base64 ();
+use URI::Escape ();
 
 use constant VERSION_1_NAMESPACE => "http://openid.net/signon/1.1";
 use constant VERSION_2_NAMESPACE => "http://specs.openid.net/auth/2.0";
@@ -83,7 +84,7 @@ sub push_url_arg {
         my $key = shift;
         my $value = shift;
         $$uref .= $got_qmark ? "&" : ($got_qmark = 1, "?");
-        $$uref .= eurl($key) . "=" . eurl($value);
+        $$uref .= URI::Escape::uri_escape($key) . "=" . URI::Escape::uri_escape($value);
     }
 }
 

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libnet-openid-common-perl.git