From a668d95d135825e04289106c9a7b73096709eb2d Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Mon, 26 Aug 2024 22:27:10 +0200
Subject: [PATCH] perl: bundled features in older version

---
 perl.inc.pl | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/perl.inc.pl b/perl.inc.pl
index 3ee4eb4..b0f9ec8 100644
--- a/perl.inc.pl
+++ b/perl.inc.pl
@@ -107,10 +107,11 @@ my $wbr = "\N{ZERO WIDTH SPACE}";
 
 	v5.10 => {
 		new => [
+			['<code>use v5.10</code>', 'minimal perl version with bundled features (pragma to lexically enable backwards-incompatible syntax)'],
 			['<code>//</code>', 'defined-or operator'],
 			['<code>~~</code>', 'smart-match operator to compare different data types <small>(updated in v5.10.1)</small>', {experimental => 'smartmatch'}],
-			['<code>say</code>', 'print with newline, equivalent to <code>print @_, "\n"</code>', {feature => 'say'}],
-			['<code>given</code>', 'switch statement to smart-match with <code>when</code>/<code>default</code>', {name => 'switch', feature => 'switch', experimental => 'smartmatch'}],
+			['<code>say</code>', 'print with newline, equivalent to <code>print @_, "\n"</code>', {feature => 'say', bundle => 0}],
+			['<code>given</code>', 'switch statement to smart-match with <code>when</code>/<code>default</code>', {name => 'switch', feature => 'switch', bundle => 0, experimental => 'smartmatch'}],
 			['<code>/(?&lt;name>)/</code>', 'named capture buffers into <code>%+</code>'],
 			['<code>/(?1)/</code>', 'recursive regular expression patterns'],
 			['<code>/(?|)/</code>', 'resets capture numbering for each contained branch'],
@@ -119,7 +120,7 @@ my $wbr = "\N{ZERO WIDTH SPACE}";
 			['<code>/p</code>', 'optionally preserve <code>${^MATCH}</code> variables (avoiding <code>$&</code> penalty until COW in v5.20)'],
 			['<code>/\v/, /\h/</code>', 'vertical and horizontal whitespace escapes (<code>\V</code> <code>\H</code> to invert); also <code>/\R/</code> for newlines'],
 			['<code>my $_</code>', 'lexically scoped version of the default variable', {experimental => 'lexical_topic', dropped => v5.23.4}],
-			['<code>state</code>', 'persistent <code>my</code> variables (scalars only until <a href="#state_ext">5.28</a>)', {feature => 'state'}],
+			['<code>state</code>', 'persistent <code>my</code> variables (scalars only until <a href="#state_ext">5.28</a>)', {feature => 'state', bundle => 0}],
 		],
 		modules => [
 			[autodie => 'replace builtin functions to throw exceptions instead of returning failure', 'eval {open ...} or $@->matches("open") || die'],
@@ -193,8 +194,8 @@ my $wbr = "\N{ZERO WIDTH SPACE}";
 	v5.16 => {
 		new => [
 			["<code>no feature ${wbr}'array_base'</code>", 'disables <code>$[</code> to alter the 0 index of the first array element or substring character', {bundle => 0, dropped => v5.30}],
-			['<code>__SUB__</code>', 'current subroutine reference', {feature => 'current_sub'}],
-			['<code>fc, "\F"</code>', 'unicode foldcase to compare case-insensitively', {feature => 'fc'}],
+			['<code>__SUB__</code>', 'current subroutine reference', {feature => 'current_sub', bundle => 0}],
+			['<code>fc, "\F"</code>', 'unicode foldcase to compare case-insensitively', {feature => 'fc', bundle => 0}],
 			['<code>"\N{}"</code>', 'automatic <code>use charnames qw( :full :short )</code>'],
 		],
 		release => '2012-05-20',
@@ -229,7 +230,7 @@ my $wbr = "\N{ZERO WIDTH SPACE}";
 		new => [
 			['<code>sub ($var)</code>', 'subroutine signatures', {feature => 'signatures', experimental => 'signatures', stable => v5.36, bundle => 0}],
 			['<code>%hash{…}</code>', 'hash slices return key+value pairs'],
-			['<code>[]->@*</code>', 'postfix dereferencing (also e.g. <code>$scalar->$*</code> for <code>$$scalar</code>)', {feature => 'postderef, postderef_qq', experimental => 'postderef', stable => v5.23.1}],
+			['<code>[]->@*</code>', 'postfix dereferencing (also e.g. <code>$scalar->$*</code> for <code>$$scalar</code>)', {feature => 'postderef, postderef_qq', experimental => 'postderef', stable => v5.24, bundle => 0}],
 			[q"<code>use warnings 'once'; $a</code>", 'variables $a and $b are exempt from <em>used once</em> warnings'],
 		],
 		unicode => '6.3',
@@ -250,7 +251,7 @@ my $wbr = "\N{ZERO WIDTH SPACE}";
 			['<code>&lt;&lt;…>></code>', 'safe <code>readline</code> ignoring open flags in arguments'],
 			['<code>/()/n</code>', 'flag to disable numbered capturing, turning <code>()</code> into <code>(?:)</code>'],
 			['<code>/\b{}/</code>', 'boundary types: <em>gcb</em> (grapheme cluster), <em>sb</em> (sentence), <em>wb</em> (word)'],
-			['<code>&.</code>', '<code>& | ^ ~</code> consistently numeric, dotted operators for strings', {feature => 'bitwise', experimental => 'bitwise', stable => v5.28}],
+			['<code>&.</code>', '<code>& | ^ ~</code> consistently numeric, dotted operators for strings', {feature => 'bitwise', experimental => 'bitwise', stable => v5.28, bundle => 0}],
 			[q"<code>use re 'strict'</code>", 'apply stricter syntax rules to regular expression patterns', {experimental => 're_strict'}],
 			['<code>0x.beep+0</code>', q"hexadecimal floating point notation with binary power; <code>printf '%a'</code> to display"],
 			['<code><s>??</s></code>', 'single match shorthand (deprecated since v5.14) requires the operator <code><em>m</em>?PATTERN?</code>'],
-- 
2.30.2