X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/ba59e8d53b056133db5322dce1510a0044971c1f..5c3baccaf899618ba93abdb136d1183456d13bbb:/source.plp?ds=sidebyside

diff --git a/source.plp b/source.plp
index cf22e34..b0b5daa 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."
@@ -37,7 +37,6 @@ Html({
 	keywords => [qw'
 		sheet cheat source code perl plp html agpl
 	'],
-	stylesheet => [qw'light dark mono red'],
 	data => [$source =~ m{\A($incname)\z}],
 });
 
@@ -88,8 +87,6 @@ else {
 		exit;
 	}
 	-e or mkdir for $cachefile =~ s{[^/]+\z}{}r; # dirname
-	open my $cache, '>', $cachefile
-		or Alert("Could not save cache", "Opening $cachefile failed: $!");;
 
 	if (my $hl = eval {
 		$size < 32_768 or die 'large files take too long to parse';
@@ -111,6 +108,8 @@ else {
 			Todo      => 'em',
 			PreProc   => 'strong',
 		);
+		open my $cache, '>', $cachefile
+			or Alert("Could not save cache", "Opening $cachefile failed: $!");;
 
 		say '<pre>';
 		foreach (@{$hl}) {
@@ -123,7 +122,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+) (?= (?:/\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
@@ -139,6 +138,7 @@ else {
 		say '</pre>';
 	}
 	else {
+		warn $@ if $@;
 		say '<pre>';
 		print EscapeHTML(decode_utf8(ReadFile($path)));
 		say '</pre>';