Fix some UTF-8 issues in template output.
authorSteinar H. Gunderson <sgunderson@bigfoot.com>
Fri, 20 Nov 2015 00:43:24 +0000 (01:43 +0100)
committerSteinar H. Gunderson <sgunderson@bigfoot.com>
Fri, 20 Nov 2015 00:43:24 +0000 (01:43 +0100)
perl/Sesse/pr0n/Templates.pm

index aac4058fc8ab183bef468f9d938f97201013e2e2..61685c4af6816bfcdaad5fe8318fac93465bab54 100644 (file)
@@ -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;