source: read highlighted cache as unicode
authorMischa POSLAWSKY <perl@shiar.org>
Fri, 2 Feb 2024 20:10:09 +0000 (21:10 +0100)
committerMischa POSLAWSKY <perl@shiar.org>
Sun, 11 Feb 2024 06:39:57 +0000 (07:39 +0100)
Fix double encoding of utf8.

source.plp

index 863ef35348dfb522bc7374318256ab2197ae4248..cf22e34c75d64c3e4fa341900741fba5a4b30534 100644 (file)
@@ -83,7 +83,7 @@ else {
        my $cachefile = "source/$source.html";
        if (-e $cachefile and (stat $cachefile)->[9] >= (stat $path)->[9]) {
                say '<pre>';
-               print ReadFile($cachefile);
+               print decode_utf8(ReadFile($cachefile));
                say '</pre>';
                exit;
        }