perl: combined experimental class and version

Also in v5.23.1: a named feature with maturing version.

diff --git a/perl.inc.pl b/perl.inc.pl
index 436fbeeca28fe4be1c1571ea2b52c47dc8067803..aa7e3136e7624cc5d3a34dd610695598e85d3c69 100644 (file)
--- a/perl.inc.pl
+++ b/perl.inc.pl
@@ -128,7 +128,7 @@ use utf8;
                new => [
                        ['<code>sub ($var)</code>', 'subroutine signatures', 'experimental::signatures'],
                        ['<code>%hash{…}</code>', 'hash slices return key+value pairs'],
-                       ['<code>[]->@*</code>', 'postfix dereferencing (also e.g. <code>$scalar->$*</code> for <code>$$scalar</code>)', 'experimental::postderef'],
+                       ['<code>[]->@*</code>', 'postfix dereferencing (also e.g. <code>$scalar->$*</code> for <code>$$scalar</code>)', v5.23.1, 'experimental::postderef'],
                        [q"<code>use warnings 'once'; $a</code>", 'variables $a and $b are exempt from <em>used once</em> warnings'],
                ],
                unicode => '6.3',

diff --git a/perl.plp b/perl.plp
index 6bc35863a83b03357dad72e358385221ec54ce85..4c9068797a5a0668d2ea19b6faf40bb34c6911e0 100644 (file)
--- a/perl.plp
+++ b/perl.plp
@@ -39,7 +39,7 @@ for my $vernum (reverse sort keys %{$info}) {
                                );
                                $experimental = $_->[3];  # optional additional class
                        }
-                       elsif ($experimental) {
+                       if ($experimental) {
                                $class .= sprintf ' title="%s"', $experimental;
                        }
                        $_->[1] .= qq{ <em$class>($title)</em>};