Changeset 17717

Timestamp:

08/16/08 20:14:32 (5 years ago)

Author:

tokuhirom

Message:

escape

Files:

• lang/perl/HTTP-Engine/trunk/lib/HTTP/Engine/ResponseFinalizer.pm (modified) (3 diffs)

lang/perl/HTTP-Engine/trunk/lib/HTTP/Engine/ResponseFinalizer.pm

@@ -14 +14 @@
 
     # Content-Length
-    $res->content_length(0);
     if ($res->body) {
         # get the length from a filehandle
@@ -26 +25 @@
             $res->content_length(bytes::length($res->body));
         }
+    } else {
+        $res->content_length(0);
     }
 
@@ -40 +41 @@
 
     # HTTP/1.1's default Connection: close
-    if ($res->protocol && $res->protocol =~ m!1.1! && !!!$res->header('Connection')) {
+    if ($res->protocol && $res->protocol =~ m!1\.1! && !!!$res->header('Connection')) {
         $res->header( Connection => 'close' );
     }