Changeset 4893

Timestamp:

01/18/08 18:41:56 (5 years ago)

Author:

lyokato

Message:

lang/perl/OAuth-Lite: Checking in changes prior to tagging of version 1.06. Changelog diff is:

Index: Changes
===================================================================
--- Changes (リビジョン 4869)
+++ Changes (作業コピー)
@@ -1,5 +1,9 @@

Revision history for Perl extension OAuth::Lite.

+1.06 Fri Jan 18 18:28:00 2008
+ - changed not to use syntax like 'any {...} qw/FOO BAR/'.
+ it seems to cause error on perl5.6
+

1.05 Thu Jan 17 10:15:00 2008

• added inc/Module/Install to MANIFEST
  

Location:

lang/perl/OAuth-Lite/trunk

Files:

• Changes (modified) (1 diff)
• lib/OAuth/Lite.pm (modified) (1 diff)
• lib/OAuth/Lite/Consumer.pm (modified) (3 diffs)

lang/perl/OAuth-Lite/trunk/Changes

@@ -1 +1 @@
 Revision history for Perl extension OAuth::Lite.
+
+1.06  Fri Jan 18 18:28:00 2008
+        - changed not to use syntax like 'any {...} qw/FOO BAR/'.
+          it seems to cause error on perl5.6
 
 1.05  Thu Jan 17 10:15:00 2008

lang/perl/OAuth-Lite/trunk/lib/OAuth/Lite.pm

@@ -4 +4 @@
 use warnings;
 
-our $VERSION = "1.05";
+our $VERSION = "1.06";
 our $OAUTH_DEFAULT_VERSION = "1.0";
 

lang/perl/OAuth-Lite/trunk/lib/OAuth/Lite/Consumer.pm

@@ -511 +511 @@
     }
 
-    if (any { $method eq $_ } qw/POST PUT/) {
+                my @send_data_methods = qw/POST PUT/;
+                my @non_send_data_methods = qw/GET HEAD DELETE/;
+    if (any { $method eq $_ } @send_data_methods) {
         $headers->header('Content-Type', q{application/x-www-form-urlencoded})
             unless $headers->header('Content-Type');
@@ -517 +519 @@
 
     my $auth_method = $self->{auth_method};
-    if (any { $method eq $_ } qw/GET HEAD DELETE/) {
+    if (any { $method eq $_ } @non_send_data_methods) {
         $auth_method = AUTH_HEADER
             unless $auth_method eq URL_QUERY; 
@@ -538 +540 @@
             my $data = join('&', map(sprintf(q{%s=%s},
                 encode_param($_), encode_param($extra->{$_}) ), keys %$extra));
-            if (any { $method eq $_ } qw/POST PUT/) {
+            if (any { $method eq $_ } @send_data_methods) {
                 $content = $data;
             } else {