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: group aliases similar to termcol ea
[sheet.git]
/
perl.plp
diff --git
a/perl.plp
b/perl.plp
index 16356213e554b02c8ac89f4c75ffe51c58ca936f..6f2dd93b7344b3a281684bd0a849873576e263a3 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 => '1.
3
',
+ version => '1.
4
',
keywords => [qw'
perl version feature features comparison
sheet cheat overview summary
keywords => [qw'
perl version feature features comparison
sheet cheat overview summary
@@
-17,7
+17,7
@@
Html({
<p>The most significant features introduced for recent versions of the Perl
scripting language.
<:
<p>The most significant features introduced for recent versions of the Perl
scripting language.
<:
-my $info =
do 'perl.inc.pl' or die $@ // $!
;
+my $info =
Data('perl')
;
say "Depending on desired compatibility you'll want to support a minimum of";
say join(' or ', map {
say "Depending on desired compatibility you'll want to support a minimum of";
say join(' or ', map {
@@
-53,7
+53,7
@@
for my $vernum (reverse sort keys %{$info}) {
if ($attr->{feature}) {
my $prefix = sprintf '<span title="%s">feature</span>',
$attr->{feature};
if ($attr->{feature}) {
my $prefix = sprintf '<span title="%s">feature</span>',
$attr->{feature};
-
my
$title = join ', ', $prefix, $title // ();
+ $title = join ', ', $prefix, $title // ();
}
$desc .= sprintf ' <em class="ex">(%s)</em>', $title;
}
}
$desc .= sprintf ' <em class="ex">(%s)</em>', $title;
}