perl: html in feature identifiers

Explicitly distinguish all perl code.

diff --git a/perl.inc.pl b/perl.inc.pl
index 08961f69f04b3eacba81da3c4224eb316660522e..f15a1dd7cbef784d969606ed8c3ef162ccec024e 100644 (file)
--- 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'],
+                       ['<code>use utf8</code>'],
+                       ['<code>\N{named character}</code>'],
+                       ['<code>our</code>'],
+                       ['<code>v1.2.3</code>'],
+                       ['<code>sub :locked :method</code>'],
+                       ['<code>open $fh, $mode, $expr</code>'],
                ],
                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'],
-                       ['/(?<name>)/', 'named capture buffers into <code>%+</code>'],
-                       ['s/keep\K//', 'floating positive lookbehind, efficient alternative for <code>s/(keep)/$1/</code>'],
-                       ['/\v/, /\h/', 'vertical and horizontal whitespace escapes'],
-                       ['my $_', 'lexically scoped version of the default variable'],
+                       ['<code>//</code>', 'defined-or operator'],
+                       ['<code>~~</code>', 'smart-match operator to compare different data types'],
+                       ['<code>given</code>', 'switch statement to smart-match with <code>when</code>/<code>default</code>'],
+                       ['<code>/(?&lt;name>)/</code>', 'named capture buffers into <code>%+</code>'],
+                       ['<code>s/keep\K//</code>', 'floating positive lookbehind, efficient alternative for <code>s/(keep)/$1/</code>'],
+                       ['<code>/\v/, /\h/</code>', 'vertical and horizontal whitespace escapes'],
+                       ['<code>my $_</code>', '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'],
+                       ['<code>package version</code>', '<code>package</code> NAME VERSION shorthand for <code>our $VERSION</code>'],
+                       ['<code>...</code>', 'yada-yada operator: code placeholder'],
+                       ['<code>use 5.012</code>', 'Implicit <code>strict</code> if use VERSION >= v5.12'],
+                       ['<code>… when</code>', '<code>when</code> 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 <code>/(?{})/</code> and <code>/(??{})/</code>'],
-                       ["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. <code>STDOUT->flush</code>)'],
+                       ['<code>s///r</code>', 'non-destructive substitution'],
+                       ['<code>/(?^)/</code>', 'construct to reset to default modifiers'],
+                       ['<code>/(?{ m// })/</code>', 'regular expressions can be nested in <code>/(?{})/</code> and <code>/(??{})/</code>'],
+                       ["<code>use re '/flags'</code>", 'customize default modifiers'],
+                       ['<code>each $ref</code> e.a.', 'array and hash container functions accept references'],
+                       ['<code>FH->method</code>', 'filehandle method calls load IO::File on demand (eg. <code>STDOUT->flush</code>)'],
                ],
                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 )'],
+                       ['<code>__SUB__</code>', 'current subroutine reference'],
+                       ['<code>fc, "\F"</code>', 'unicode foldcase to compare case-insensitively'],
+                       ['<code>"\N{}"</code>', '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 <code>$.</code>)'],
-                       ['/(?[ a + b ])/', 'regex set operations (character substraction -, unions &amp;)'],
-                       ['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'],
+                       ['<code>${^LAST_FH}</code>', 'last read filehandle (used by <code>$.</code>)'],
+                       ['<code>/(?[ a + b ])/</code>', 'regex set operations (character substraction -, unions &amp;)'],
+                       ['<code>my sub foo</code>', 'lexical subroutines (also state, our)'],
+                       ['<code>next $expression</code>', 'loop controls allow runtime expressions'],
+                       [q(<code>no warnings 'experimental::…'</code>), '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. <code>$scalar->$*</code> for <code>$$scalar</code>)'],
-                       ['use warnings; $a', 'variables $a and $b are exempt from <em>used once</em> warnings'],
+                       ['<code>sub ($var)</code>', 'subroutine signatures'],
+                       ['<code>%hash{…}</code>', 'hash slices return key+value pairs'],
+                       ['<code>[]->@*</code>', 'postfix dereferencing (also e.g. <code>$scalar->$*</code> for <code>$$scalar</code>)'],
+                       [q(<code>use warnings 'once'; $a</code>), 'variables $a and $b are exempt from <em>used once</em> warnings'],
                ],
                unicode => '6.3',
                release => '2014-05-27',

diff --git a/perl.plp b/perl.plp
index 856ee4712d56a38d8425fd596e10dd322a6109b0..e199ddd2e2908d0a0aeb6fa2f1506eaeee7c061d 100644 (file)
--- a/perl.plp
+++ b/perl.plp
@@ -20,7 +20,7 @@ for my $vernum (reverse sort keys %{$info}) {
        my $verrow = $info->{$vernum};
        print '<div class="section">'."\n";
        printf '<h2>%vd <small style="position:absolute; margin-left:1em">%s</small></h2><dl>'."\n", $vernum, $verrow->{release};
-       printf '<dt><code>%s</code><dd>%s', Entity($_->[0]), $_->[1], '<br/>' for @{ $verrow->{new} };
+       printf '<dt>%s<dd>%s', @{$_}, '<br/>' for @{ $verrow->{new} };
        printf '<dt>Unicode</dt><dd>v%s', $_ for $verrow->{unicode} || ();
        print "</dl>\n";
        print "</div>\n\n";