Changeset 17750

Timestamp:

08/17/08 12:02:19 (5 years ago)

Author:

tokuhirom

Message:

avoid warnings

Files:

• lang/perl/HTTP-Engine/trunk/lib/HTTP/Engine/Role/RequestBuilder/HTTPBody.pm (modified) (1 diff)

lang/perl/HTTP-Engine/trunk/lib/HTTP/Engine/Role/RequestBuilder/HTTPBody.pm

@@ -41 +41 @@
     my($self, $req) = @_;
 
-    my $length = $req->header('Content-Length') || 0;
+    my $length = $req->content_length || 0;
     my $type   = $req->header('Content-Type');