Update OAuthSimple.pm

Making signature base string generation according to RFC 5849 (http://tools.ietf.org/html/rfc5849)
jrconlin · Jan 9, 2015 · a61a838 · a61a838
1 parent 341f064
commit a61a838
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/perl/OAuthSimple.pm b/perl/OAuthSimple.pm
@@ -617,8 +617,8 @@ see .sign()
 	    if(defined($this->{_secrets}->{oauth_secret})) {
             $secretKey .= $this->_oauthEscape($this->{_secrets}->{oauth_secret});
         }
-        if (empty($normalizedParameters)) {
-            $normalizedParameters = $this->_normalizedParameters();
+        if (!empty($normalizedParameters)) {
+            $normalizedParameters = $this->_oauthEscape($normalizedParameters);
         }
         if ($this->{_parameters}->{oauth_signature_method} eq 'PLAINTEXT') {
             return $secretKey;