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: declare colour of inner dot in pigpen letters
[sheet.git]
/
perl.plp
diff --git
a/perl.plp
b/perl.plp
index f5d6f267a8bdb777ec0157a2a8e722bf2e8cb911..20eafc75339e974821a37631191a95dc13d4cc33 100644
(file)
--- a/
perl.plp
+++ b/
perl.plp
@@
-2,7
+2,7
@@
Html({
title => 'perl version cheat sheet',
Html({
title => 'perl version cheat sheet',
- version => '
v
1.1',
+ version => '1.1',
keywords => [qw'
perl version feature features comparison
sheet cheat overview summary
keywords => [qw'
perl version feature features comparison
sheet cheat overview summary
@@
-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>};