From 0d113d2a65f3229f441730e78b0fa16b075c7d97 Mon Sep 17 00:00:00 2001 From: Mischa POSLAWSKY Date: Sat, 24 Jan 2015 16:38:32 +0100 Subject: [PATCH] perl: html in feature identifiers Explicitly distinguish all perl code. --- perl.inc.pl | 70 ++++++++++++++++++++++++++--------------------------- perl.plp | 2 +- 2 files changed, 36 insertions(+), 36 deletions(-) diff --git a/perl.inc.pl b/perl.inc.pl index 08961f6..f15a1dd 100644 --- a/perl.inc.pl +++ b/perl.inc.pl @@ -3,12 +3,12 @@ use utf8; +{ v5.6 => { new => [ - ['use utf8'], - ['\N{named character}'], - ['our'], - ['v1.2.3'], - ['sub :locked :method'], - ['open $fh, $mode, $expr'], + ['use utf8'], + ['\N{named character}'], + ['our'], + ['v1.2.3'], + ['sub :locked :method'], + ['open $fh, $mode, $expr'], ], release => '2000-03-23', distro => { @@ -33,13 +33,13 @@ use utf8; v5.10 => { new => [ - ['//', 'defined-or operator'], - ['~~', 'smart-match operator to compare different data types'], - ['given', 'switch statement to smart-match with when/default'], - ['/(?)/', 'named capture buffers into %+'], - ['s/keep\K//', 'floating positive lookbehind, efficient alternative for s/(keep)/$1/'], - ['/\v/, /\h/', 'vertical and horizontal whitespace escapes'], - ['my $_', 'lexically scoped version of the default variable'], + ['//', 'defined-or operator'], + ['~~', 'smart-match operator to compare different data types'], + ['given', 'switch statement to smart-match with when/default'], + ['/(?<name>)/', 'named capture buffers into %+'], + ['s/keep\K//', 'floating positive lookbehind, efficient alternative for s/(keep)/$1/'], + ['/\v/, /\h/', 'vertical and horizontal whitespace escapes'], + ['my $_', 'lexically scoped version of the default variable'], ], release => '2007-12-18', distro => { @@ -51,10 +51,10 @@ use utf8; v5.12 => { new => [ - ['package version', 'package NAME VERSION shorthand for our $VERSION"'], - ['...', 'yada-yada operator: code placeholder'], - ['use strict', 'Implicit strictures if use VERSION >= 5.12'], - ['... when', '"when" is now allowed to be used as a statement modifier'], + ['package version', 'package NAME VERSION shorthand for our $VERSION'], + ['...', 'yada-yada operator: code placeholder'], + ['use 5.012', 'Implicit strict if use VERSION >= v5.12'], + ['… when', 'when is now allowed to be used as a statement modifier'], ], release => '2010-04-12', unicode => '5.2', @@ -62,12 +62,12 @@ use utf8; v5.14 => { new => [ - ['s///r', 'non-destructive substitution'], - ['/(?^)/', 'construct to reset to default modifiers'], - ['/(?{ m// })/', 'regular expressions can be nested in /(?{})/ and /(??{})/'], - ["use re '/flags'", 'customize default modifiers'], - ['each $ref e.a.', 'array and hash container functions accept references'], - ['FH->method', 'filehandle method calls load IO::File on demand (eg. STDOUT->flush)'], + ['s///r', 'non-destructive substitution'], + ['/(?^)/', 'construct to reset to default modifiers'], + ['/(?{ m// })/', 'regular expressions can be nested in /(?{})/ and /(??{})/'], + ["use re '/flags'", 'customize default modifiers'], + ['each $ref e.a.', 'array and hash container functions accept references'], + ['FH->method', 'filehandle method calls load IO::File on demand (eg. STDOUT->flush)'], ], release => '2011-05-14', distro => { @@ -78,9 +78,9 @@ use utf8; v5.16 => { new => [ - ['__SUB__', 'current subroutine reference'], - ['fc, "\F"', 'unicode foldcase to compare case-insensitively'], - ['"\N{}"', 'automatic use charnames qw( :full :short )'], + ['__SUB__', 'current subroutine reference'], + ['fc, "\F"', 'unicode foldcase to compare case-insensitively'], + ['"\N{}"', 'automatic use charnames qw( :full :short )'], ], release => '2012-05-20', distro => { @@ -91,11 +91,11 @@ use utf8; v5.18 => { new => [ - ['${^LAST_FH}', 'last read filehandle (used by $.)'], - ['/(?[ a + b ])/', 'regex set operations (character substraction -, unions &)'], - ['my sub foo', 'lexical subroutines (also state, our)'], - ['next $expression', 'loop controls allow runtime expressions'], - ["no warnings 'experimental::…'", 'mechanism for experimental features, as of now required for smartmatch'], + ['${^LAST_FH}', 'last read filehandle (used by $.)'], + ['/(?[ a + b ])/', 'regex set operations (character substraction -, unions &)'], + ['my sub foo', 'lexical subroutines (also state, our)'], + ['next $expression', 'loop controls allow runtime expressions'], + [q(no warnings 'experimental::…'), 'mechanism for experimental features, as of now required for smartmatch'], ], release => '2013-05-18', distro => { @@ -106,10 +106,10 @@ use utf8; v5.20 => { new => [ - ['sub ($var)', 'subroutine signatures'], - ['%hash{…}', 'hash slices return key+value pairs'], - ['[]->@*', 'postfix dereferencing (also e.g. $scalar->$* for $$scalar)'], - ['use warnings; $a', 'variables $a and $b are exempt from used once warnings'], + ['sub ($var)', 'subroutine signatures'], + ['%hash{…}', 'hash slices return key+value pairs'], + ['[]->@*', 'postfix dereferencing (also e.g. $scalar->$* for $$scalar)'], + [q(use warnings 'once'; $a), 'variables $a and $b are exempt from used once warnings'], ], unicode => '6.3', release => '2014-05-27', diff --git a/perl.plp b/perl.plp index 856ee47..e199ddd 100644 --- a/perl.plp +++ b/perl.plp @@ -20,7 +20,7 @@ for my $vernum (reverse sort keys %{$info}) { my $verrow = $info->{$vernum}; print '
'."\n"; printf '

%vd %s

'."\n", $vernum, $verrow->{release}; - printf '
%s
%s', Entity($_->[0]), $_->[1], '
' for @{ $verrow->{new} }; + printf '
%s
%s', @{$_}, '
' for @{ $verrow->{new} }; printf '
Unicode
v%s', $_ for $verrow->{unicode} || (); print "
\n"; print "
\n\n"; -- 2.30.0