Fix some UTF-8 issues in template output.

[pr0n] / perl / Sesse / pr0n / Templates.pm

diff --git a/perl/Sesse/pr0n/Templates.pm b/perl/Sesse/pr0n/Templates.pm
index aac4058fc8ab183bef468f9d938f97201013e2e2..61685c4af6816bfcdaad5fe8318fac93465bab54 100644 (file)
--- a/perl/Sesse/pr0n/Templates.pm
+++ b/perl/Sesse/pr0n/Templates.pm
@@ -85,7 +85,7 @@ sub process_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;