git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
perl: hint at extremeness of v5.8 compatibility
[sheet.git]
/
perl.plp
diff --git
a/perl.plp
b/perl.plp
index f5d6f267a8bdb777ec0157a2a8e722bf2e8cb911..9591ad713ff26d75f1f671b750bb68fc34392f7e 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
@@
-16,8
+16,8
@@
Html({
<p>The most significant features introduced for recent versions of the Perl scripting language.
Depending on desired compatibility you'll want to support a minimum of
<p>The most significant features introduced for recent versions of the Perl scripting language.
Depending on desired compatibility you'll want to support a minimum of
-<span title="on
stable/enterprise
platforms such as Solaris 10, RHEL 3, SLES 8">v5.8</span> or
-<span title="on
up-to-dat
e servers such as Debian wheezy, Ubuntu 12.04, CentOS 7">v5.14</span>.
+<span title="on
dinosaur
platforms such as Solaris 10, RHEL 3, SLES 8">v5.8</span> or
+<span title="on
stabl
e servers such as Debian wheezy, Ubuntu 12.04, CentOS 7">v5.14</span>.
</p>
<:
</p>
<:
@@
-33,9
+33,15
@@
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;
+ my $dropped = $experimental =~ s/^\0//
+ and (exists $get{v} or next);
+ $title = sprintf('%s %vd',
+ $dropped ? '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>};