perl: html in feature descriptions

diff --git a/perl.inc.pl b/perl.inc.pl
index b499bf85880c8a61f380483374a7a69e4c54ec07..08961f69f04b3eacba81da3c4224eb316660522e 100644 (file)
--- a/perl.inc.pl
+++ b/perl.inc.pl
@@ -36,8 +36,8 @@ use utf8;
                        ['//', '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/'],
+                       ['/(?<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'],
                ],
@@ -64,10 +64,10 @@ use utf8;
                new => [
                        ['s///r', 'non-destructive substitution'],
                        ['/(?^)/', 'construct to reset to default modifiers'],
-                       ['/(?{ m// })/', 'regular expressions can be nested in /(?{})/ and /(??{})/'],
+                       ['/(?{ 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. STDOUT->flush)'],
+                       ['FH->method', 'filehandle method calls load IO::File on demand (eg. <code>STDOUT->flush</code>)'],
                ],
                release => '2011-05-14',
                distro => {
@@ -91,8 +91,8 @@ use utf8;
 
        v5.18 => {
                new => [
-                       ['${^LAST_FH}', 'last read filehandle (used by $.)'],
-                       ['/(?[ a + b ])/', 'regex set operations (character substraction -, unions &)'],
+                       ['${^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'],
@@ -108,8 +108,8 @@ use utf8;
                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'],
+                       ['[]->@*', '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'],
                ],
                unicode => '6.3',
                release => '2014-05-27',

diff --git a/perl.plp b/perl.plp
index eee43cf46de33fac28223d4dcf92ee4978f2c431..856ee4712d56a38d8425fd596e10dd322a6109b0 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(@{$_}), '<br/>' for @{ $verrow->{new} };
+       printf '<dt><code>%s</code><dd>%s', Entity($_->[0]), $_->[1], '<br/>' for @{ $verrow->{new} };
        printf '<dt>Unicode</dt><dd>v%s', $_ for $verrow->{unicode} || ();
        print "</dl>\n";
        print "</div>\n\n";