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';
Todo => 'em',
PreProc => 'strong',
);
+ open my $cache, '>', $cachefile
+ or Alert("Could not save cache", "Opening $cachefile failed: $!");;
say '<pre>';
foreach (@{$hl}) {
say '</pre>';
}
else {
+ warn $@ if $@;
say '<pre>';
print EscapeHTML(decode_utf8(ReadFile($path)));
say '</pre>';