From f963d7374bd53a3356f949ce280482aee6b53998 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sat, 22 Aug 2015 09:30:38 +0200
Subject: [PATCH] perl: experimental feature removal for v5.23.1

Misuse version number prepended by \0 since there's no Perl version below 1.
Admittedly an unintuitive hack, but I like it better than verbose hashes.
---
 perl.inc.pl | 2 +-
 perl.plp    | 6 +++++-
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/perl.inc.pl b/perl.inc.pl
index abdf7a9..436fbee 100644
--- a/perl.inc.pl
+++ b/perl.inc.pl
@@ -88,7 +88,7 @@ use utf8;
 			['<code>/(?^)/</code>', 'construct to reset to default modifiers'],
 			['<code>/(?{ m() })/</code>', 'regular expressions can be nested in <code>/(?{})/</code> and <code>/(??{})/</code>', v5.20],
 			[q"<code>use re '/flags'</code>", 'customise default modifiers'],
-			['<code>each $ref</code> e.a.', 'array and hash container functions accept references', ''],
+			['<code>each $ref</code> e.a.', 'array and hash container functions accept references', v0.5.23.1],
 			['<code>FH->method</code>', 'filehandle method calls load IO::File on demand (eg. <code>STDOUT->flush</code>)'],
 		],
 		release => '2011-05-14',
diff --git a/perl.plp b/perl.plp
index f5d6f26..6bc3586 100644
--- a/perl.plp
+++ b/perl.plp
@@ -33,7 +33,11 @@ for my $vernum (reverse sort keys %{$info}) {
 			my $title = 'experimental';
 			my $class = ' class="ex"';
 			if (ref \$experimental eq 'VSTRING') {
-				$title .= sprintf ' until %vd', $experimental;
+				$title = sprintf('%s %vd',
+					$experimental =~ s/^\0// ? 'removed in ' : "$title until",
+					$experimental,
+				);
+				$experimental = $_->[3];  # optional additional class
 			}
 			elsif ($experimental) {
 				$class .= sprintf ' title="%s"', $experimental;
-- 
2.30.0