From 505b0c19b7143621bcd1f72fb5f07801557d5a2a Mon Sep 17 00:00:00 2001 From: Mischa POSLAWSKY Date: Sat, 22 Aug 2015 09:30:45 +0200 Subject: [PATCH] perl: combined experimental class and version Also in v5.23.1: a named feature with maturing version. --- perl.inc.pl | 2 +- perl.plp | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/perl.inc.pl b/perl.inc.pl index 436fbee..aa7e313 100644 --- a/perl.inc.pl +++ b/perl.inc.pl @@ -128,7 +128,7 @@ use utf8; new => [ ['sub ($var)', 'subroutine signatures', 'experimental::signatures'], ['%hash{…}', 'hash slices return key+value pairs'], - ['[]->@*', 'postfix dereferencing (also e.g. $scalar->$* for $$scalar)', 'experimental::postderef'], + ['[]->@*', 'postfix dereferencing (also e.g. $scalar->$* for $$scalar)', v5.23.1, 'experimental::postderef'], [q"use warnings 'once'; $a", 'variables $a and $b are exempt from used once warnings'], ], unicode => '6.3', diff --git a/perl.plp b/perl.plp index 6bc3586..4c90687 100644 --- 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{ ($title)}; -- 2.30.0