Changeset 7759

Timestamp:

03/10/08 16:44:22 (5 years ago)

Author:

lyokato

Message:

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

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

Revision history for Perl extension OAuth::Lite.

+1.08 Mon Mar 10 16:03:00 2008
+ - rt #33943
+ added Content-Length header in case request method is POST or PUT,
+ at the end of Consumer::gen_oauth_request.
+ Thanks, TOMI.
+

1.07 Sun Jan 20 15:12:00 2008

• put sorting process into building query-string process.
  The hash keys order is deferrent between perl environments.
  

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.08  Mon Mar 10 16:03:00 2008
+    - rt #33943
+      added Content-Length header in case request method is POST or PUT,
+      at the end of Consumer::gen_oauth_request.
+      Thanks, TOMI.
 
 1.07  Sun Jan 20 15:12:00 2008

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

@@ -4 +4 @@
 use warnings;
 
-our $VERSION = "1.07";
+our $VERSION = "1.08";
 our $OAUTH_DEFAULT_VERSION = "1.0";
 

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

@@ -23 +23 @@
 
 use Carp ();
+use bytes ();
 use URI;
 use HTTP::Request;
@@ -511 +512 @@
     }
 
-                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');
-    }
+    my @send_data_methods = qw/POST PUT/;
+    my @non_send_data_methods = qw/GET HEAD DELETE/;
 
     my $auth_method = $self->{auth_method};
@@ -547 +544 @@
         }
     }
+    if (any { $method eq $_ } @send_data_methods) {
+        $headers->header('Content-Type', q{application/x-www-form-urlencoded})
+            unless $headers->header('Content-Type');
+        $headers->header('Content-Length', bytes::length($content) );
+    }
     my $req = HTTP::Request->new( $method, $url, $headers, $content );
     $req;