browser: automatic retrieval of caniuse data

[sheet.git] / source.plp

diff --git a/source.plp b/source.plp
index cdd40a1c72e86cfd30d7d726f749acfe0f60ebfa..ee129cee23de856af5413c55ca3305284dd17374 100644 (file)
--- a/source.plp
+++ b/source.plp
@@ -7,7 +7,7 @@ Html({
        title => "$source source code",
        version => 'v1.0',
        description => !$source ? 'Index of source files for this site.' : [
-               "Source code of local $source file,",
+               "Source code of the $source file at this site,",
                "with syntax highlighted and references linked."
        ],
        keywords => [qw'
@@ -76,7 +76,10 @@ else {
                print "</pre>\n";
        }
        else {
-               print "<pre>\n", EscapeHTML(ReadFile($source)), "</pre>\n";
+               require Encode;
+               print "<pre>\n";
+               print EscapeHTML(Encode::decode_utf8(ReadFile($source)));
+               print "</pre>\n";
        }
 
        print "\n";