Hello,
I have a problem printing UTF-8 from mod_perl.
The sample-/test-code looks like this:
use utf8;
sub streamtest {
my $self = shift;
$self->header_type('none'); # for streaming
# Write the content type to the client...
my $r = $self->param('r');
$r->content_type( 'text/html; charset=utf-8' );
print q{<html>
<body>
<h1>Streaming-Test äüß </h1>
</body>
</html>
};
return '';
}
The script with the extended characters is written in UTF8 but the
resulting page has the extended characters in latin1.
Background: This is a runmode of a CGI::Application but it shouldn't
make a difference because I don't use the CGI::Application magic
(sending headers and output of the result) in this runmode.
Any ideas what may be going wrong here and why the output is converted
back to latin1?
-Michael
