Changeset 24834

Timestamp:

11/25/08 18:08:43 (4 years ago)

Author:

tokuhirom

Message:

output content_length

Files:

• lang/perl/MENTA/trunk/lib/MENTA.pm (modified) (2 diffs)

lang/perl/MENTA/trunk/lib/MENTA.pm

@@ -124 +124 @@
     my $res = MENTA->context->res;
     $res->headers->content_type("text/html; charset=" . charset());
+    $res->headers->content_length(bytes::length($out));
     $res->content($out);
 
@@ -145 +146 @@
     my $res = MENTA->context->res;
     $res->headers->content_type($content_type);
+    $res->headers->content_length(bytes::length($str));
     $res->content($str);