git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
latin: fix suetterlin font match on 3rd row
[sheet.git]
/
perl.plp
diff --git
a/perl.plp
b/perl.plp
index f5d6f267a8bdb777ec0157a2a8e722bf2e8cb911..4c9068797a5a0668d2ea19b6faf40bb34c6911e0 100644
(file)
--- a/
perl.plp
+++ b/
perl.plp
@@
-33,9
+33,13
@@
for my $vernum (reverse sort keys %{$info}) {
my $title = 'experimental';
my $class = ' class="ex"';
if (ref \$experimental eq 'VSTRING') {
my $title = 'experimental';
my $class = ' class="ex"';
if (ref \$experimental eq 'VSTRING') {
- $title .= sprintf ' until %vd', $experimental;
+ $title = sprintf('%s %vd',
+ $experimental =~ s/^\0// ? 'removed in ' : "$title until",
+ $experimental,
+ );
+ $experimental = $_->[3]; # optional additional class
}
}
-
els
if ($experimental) {
+ if ($experimental) {
$class .= sprintf ' title="%s"', $experimental;
}
$_->[1] .= qq{ <em$class>($title)</em>};
$class .= sprintf ' title="%s"', $experimental;
}
$_->[1] .= qq{ <em$class>($title)</em>};