Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

Merge branch 'feature/fixing-automated-build-problems' into develop

  • Loading branch information...
commit e3d3fc17123fa48ecfb147f615160590c5440c7e 2 parents ac43bce + 5fda2a1
Charles Wimmer authored October 20, 2012
2  lib/Net/Amazon/SignatureVersion4.pm
@@ -298,7 +298,7 @@ sub get_canonical_request{
298 298
 
299 299
 sub _encode{
300 300
     #This method is used to add some additional encodings that are not enforced by the URI::Encode module.  AWS expects these.
301  
-    my $encoder = URI::Encode->new();
  301
+    my $encoder = URI::Encode->new({ double_encode => 0 });
302 302
     my $rv=shift;
303 303
 #    %20=%2F%2C%3F%3E%3C%60%22%3B%3A%5C%7C%5D%5B%7B%7D&%40%23%24%25%5E=
304 304
 #    +  =/  ,  ?  %3E%3C%60%22;  :  %5C%7C]  [  %7B%7D&@  #  $  %25%5E=
3  t/01-aws4_testsuite.t
@@ -32,8 +32,9 @@ while(my $_=pop @tests) {
32 32
     $sig->set_Secret_Access_Key('wJalrXUtnFEMI/K7MDENG+bPxRfiCYEXAMPLEKEY');
33 33
     my $canonical_request_actual=$sig->get_canonical_request();
34 34
     write_file("$test_suite_location/$test.me", $canonical_request_actual);
35  
-#    diag($canonical_request_actual);
  35
+    diag($canonical_request_actual);
36 36
     my $canonical_request_correct=read_file("$test_suite_location/$test.creq");
  37
+    diag($canonical_request_correct);
37 38
     ok($canonical_request_actual eq $canonical_request_correct, "$test Canonical Request" );
38 39
     my $string_to_sign_actual=$sig->get_string_to_sign();
39 40
     write_file("$test_suite_location/$test.sts.me", $string_to_sign_actual);

0 notes on commit e3d3fc1

Please sign in to comment.
Something went wrong with that request. Please try again.