Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Merge branch 'release/0.006'

  • Loading branch information...
commit b0a2e27a14c107018f6631a77941e45836dd57da 2 parents cce2e5a + 6263149
@cwimmer authored
View
2  dist.ini
@@ -4,7 +4,7 @@ license = BSD
copyright_holder = Charles A. Wimmer
copyright_year = 2012
-version = 0.005
+version = 0.006
[@Basic]
[MetaResources]
View
2  lib/Net/Amazon/SignatureVersion4.pm
@@ -298,7 +298,7 @@ sub get_canonical_request{
sub _encode{
#This method is used to add some additional encodings that are not enforced by the URI::Encode module. AWS expects these.
- my $encoder = URI::Encode->new();
+ my $encoder = URI::Encode->new({ double_encode => 0 });
my $rv=shift;
# %20=%2F%2C%3F%3E%3C%60%22%3B%3A%5C%7C%5D%5B%7B%7D&%40%23%24%25%5E=
# + =/ , ? %3E%3C%60%22; : %5C%7C] [ %7B%7D&@ # $ %25%5E=
View
3  t/01-aws4_testsuite.t
@@ -32,8 +32,9 @@ while(my $_=pop @tests) {
$sig->set_Secret_Access_Key('wJalrXUtnFEMI/K7MDENG+bPxRfiCYEXAMPLEKEY');
my $canonical_request_actual=$sig->get_canonical_request();
write_file("$test_suite_location/$test.me", $canonical_request_actual);
-# diag($canonical_request_actual);
+ #diag($canonical_request_actual);
my $canonical_request_correct=read_file("$test_suite_location/$test.creq");
+ #diag($canonical_request_correct);
ok($canonical_request_actual eq $canonical_request_correct, "$test Canonical Request" );
my $string_to_sign_actual=$sig->get_string_to_sign();
write_file("$test_suite_location/$test.sts.me", $string_to_sign_actual);
Please sign in to comment.
Something went wrong with that request. Please try again.