git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
common: treat exception references as alert parameters
[sheet.git]
/
sample.plp
diff --git
a/sample.plp
b/sample.plp
index 15323a34db2023c3fdf9e32cdd05346d749687a8..f824e1458e39e4f24356267692f28ac8900090ff 100644
(file)
--- a/
sample.plp
+++ b/
sample.plp
@@
-1,13
+1,16
@@
<(common.inc.plp)><:
<(common.inc.plp)><:
+my $textinc = 'data/unicode-sampler/unicode.txt';
+
Html({
title => "unicode sampler",
version => '2.0',
stylesheet => [qw'light dark mono red'],
Html({
title => "unicode sampler",
version => '2.0',
stylesheet => [qw'light dark mono red'],
+ data => [$textinc],
});
});
-open my $source, '<',
'data/unicode-sampler/unicode.txt'
- or
die "Could not open text: $!\n"
;
+open my $source, '<',
$textinc
+ or
Abort("Could not open text at $textinc", 501, $!)
;
local $/ = "\n\n";
my $top = readline $source;
local $/ = "\n\n";
my $top = readline $source;