index: release v1.18 with only altgr index linked

[sheet.git] / source.plp

diff --git a/source.plp b/source.plp
index 142b67f5131a482e9ae4ae04cb7af4d8f0225a3d..cf22e34c75d64c3e4fa341900741fba5a4b30534 100644 (file)
--- a/source.plp
+++ b/source.plp
@@ -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;
        }
@@ -123,7 +123,7 @@ else {
                        $line =~ s{ ^(['"]?) \K ($incname) (?=\1$) }{ showlink($2, "/source/$2") }xe
                                if !$type || $type eq 'Constant';
                        # link relative page locations in html output
-                       $line =~ s{ ^(&quot;)\K ((?:/\w+)+) (?=\1$) }{ showlink($2, "/source$2.plp") }xe
+                       $line =~ s{ ^(&quot;)\K (/\w+) (?= (?:/\w+)* \1$) }{ showlink($2, "/source$2.plp") }xe
                                if $type && $type eq 'Constant';
                        # link perl module names (Xx::Xx...)
                        $line =~ s{ ^\s* \K ([A-Z]\w+(?:::\w+)+) (?![^;\s]) }{ showlink($1, "/source/$1") }xe