git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
sc: refer to ventral sacs overlord by its common name
[sheet.git]
/
source.plp
diff --git
a/source.plp
b/source.plp
index 81b340886240d263439fde095a222862cf031a2d..b0b5daa3bd99e545be559af4219b07668cf3da40 100644
(file)
--- a/
source.plp
+++ b/
source.plp
@@
-37,7
+37,6
@@
Html({
keywords => [qw'
sheet cheat source code perl plp html agpl
'],
keywords => [qw'
sheet cheat source code perl plp html agpl
'],
- stylesheet => [qw'light dark mono red'],
data => [$source =~ m{\A($incname)\z}],
});
data => [$source =~ m{\A($incname)\z}],
});
@@
-88,8
+87,6
@@
else {
exit;
}
-e or mkdir for $cachefile =~ s{[^/]+\z}{}r; # dirname
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';
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',
);
Todo => 'em',
PreProc => 'strong',
);
+ open my $cache, '>', $cachefile
+ or Alert("Could not save cache", "Opening $cachefile failed: $!");;
say '<pre>';
foreach (@{$hl}) {
say '<pre>';
foreach (@{$hl}) {
@@
-139,6
+138,7
@@
else {
say '</pre>';
}
else {
say '</pre>';
}
else {
+ warn $@ if $@;
say '<pre>';
print EscapeHTML(decode_utf8(ReadFile($path)));
say '</pre>';
say '<pre>';
print EscapeHTML(decode_utf8(ReadFile($path)));
say '</pre>';