X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/6ac52c4ccb2a14a2a1c22a3cd0cda7f7f02cb4c6..HEAD:/source.plp

diff --git a/source.plp b/source.plp
index 142b67f..81b3408 100644
--- a/source.plp
+++ b/source.plp
@@ -29,7 +29,7 @@ if ($source =~ s{(?<=\Q.inc.pl\E)/jsonp?$}{} and -r $source) {
 
 Html({
 	title => "$source source code",
-	version => '1.3',
+	version => '1.4',
 	description => !$source ? 'Index of source files for this site.' : [
 		"Source code of the $source file at this site,",
 		"with syntax highlighted and references linked."
@@ -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{2,}) (?= (?:/\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