Item13378: content-length in bytes, not chars

foswiki · May 10, 2015 · cabf68c · cabf68c
1 parent bc4d838
commit cabf68c
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/core/lib/Foswiki/Response.pm b/core/lib/Foswiki/Response.pm
@@ -369,7 +369,10 @@ Gets/Sets response body. Note: do not use this method for output, use
 sub body {
     my ( $this, $body ) = @_;
     if ( defined $body ) {
-        $this->{headers}->{'Content-Length'} = length($body);
+        use bytes;
+        my $len = bytes::length($body);
+        no bytes;
+        $this->{headers}->{'Content-Length'} = $len;
         $this->{body} = $body;
     }
     return $this->{body};