my $newcache = {};
my $base = $Sesse::pr0n::Config::template_base;
- open TEMPLATE, "<$base/$dir/$template"
+ open TEMPLATE, "<:utf8", "$base/$dir/$template"
or ($dir ne 'default' and open TEMPLATE, "<$base/default/$template")
or Sesse::pr0n::Common::error($r, "Couldn't open $dir/$template: $!");
sub print_template {
my ($r, $io, $template, $args) = @_;
- $io->print(process_template($r, $template, $args));
+ $io->print(Encode::encode_utf8(process_template($r, $template, $args)));
}
1;