sc: lotv patch v5.0.13 (2024-03-26)

[sheet.git] / perl.inc.pl

diff --git a/perl.inc.pl b/perl.inc.pl
index 1291ceb12a1ae1ec9b543be0484421cb6a024c16..41903a688488f1108b1515c11cfd5e95b045a90b 100644 (file)
--- a/perl.inc.pl
+++ b/perl.inc.pl
@@ -100,17 +100,18 @@ my $wbr = "\N{ZERO WIDTH SPACE}";
                        opensuse => '8.1', # 2002-09 eol (SLES8 2002-10 eol 2007-12 ltss 2009-12)
                },
                distrosum => "RHEL 3, SLES 8, AIX 5/6 until 2017, Solaris 10 until 2021",
                        opensuse => '8.1', # 2002-09 eol (SLES8 2002-10 eol 2007-12 ltss 2009-12)
                },
                distrosum => "RHEL 3, SLES 8, AIX 5/6 until 2017, Solaris 10 until 2021",

-               versum => 'stable minimum during 20[01]\d',
+               versum => 'stable minimum upto 2021',

                support => '2021-01', # solaris
                unicode => '3.2.0',
        },
 
        v5.10 => {
                new => [
                support => '2021-01', # solaris
                unicode => '3.2.0',
        },
 
        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>//</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'],
                        ['<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>/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'],
                ],
                modules => [
                        [autodie => 'replace builtin functions to throw exceptions instead of returning failure', 'eval {open ...} or $@->matches("open") || die'],


@@ -145,7 +146,7 @@ my $wbr = "\N{ZERO WIDTH SPACE}";
 
        v5.12 => {
                new => [
 
        v5.12 => {
                new => [

-                       ['<code>package</code> version', '<code>package</code> NAME VERSION shorthand for <code>our $VERSION</code>'],
+                       ['<code>package</code> version', '<code>package</code> <i>NAME</i> <i>VERSION</i> shorthand for <code>our $VERSION</code>'],

                        ['<code>...</code>', 'yada-yada operator: code placeholder'],
                        ['<code>use 5.012</code>', 'implicit <code>strict</code> if use VERSION >= v5.12'],
                        ['<code>… when</code>', '<code>when</code> is now allowed to be used as a statement modifier'],
                        ['<code>...</code>', 'yada-yada operator: code placeholder'],
                        ['<code>use 5.012</code>', 'implicit <code>strict</code> if use VERSION >= v5.12'],
                        ['<code>… when</code>', '<code>when</code> is now allowed to be used as a statement modifier'],


@@ -172,7 +173,9 @@ my $wbr = "\N{ZERO WIDTH SPACE}";
                        [q"<code>use re '/flags'</code>", 'customise default modifiers'],
                        ['<code>/(?^)/</code>', 'construct to reset to default modifiers'],
                        ['<code>FH->method</code>', 'filehandle method calls load IO::File on demand (eg. <code>STDOUT->flush</code>)'],
                        [q"<code>use re '/flags'</code>", 'customise default modifiers'],
                        ['<code>/(?^)/</code>', 'construct to reset to default modifiers'],
                        ['<code>FH->method</code>', 'filehandle method calls load IO::File on demand (eg. <code>STDOUT->flush</code>)'],

-                       ['<code>\o{}</code>', 'escape sequence for octal values beyond \777'],
+                       ['<code>\o{}</code>', 'escape sequence for octal values beyond 0777'],
+                       ['<code>package {}</code>', 'package declaration in scope of code block only'],
+                       ['<code>multiple: labels:</code>', 'statement labels allowed in all places, even before other labels'],

                ],
                modules => [
                        [JSON => 'interface with data in JavaScript Object Notation', 'decode_json <>'],
                ],
                modules => [
                        [JSON => 'interface with data in JavaScript Object Notation', 'decode_json <>'],


@@ -192,8 +195,9 @@ my $wbr = "\N{ZERO WIDTH SPACE}";
 
        v5.16 => {
                new => [
 
        v5.16 => {
                new => [

-                       ['<code>__SUB__</code>', 'current subroutine reference', {feature => 'current_sub'}],
-                       ['<code>fc, "\F"</code>', 'unicode foldcase to compare case-insensitively', {feature => 'fc'}],
+                       ["<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', 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',
                        ['<code>"\N{}"</code>', 'automatic <code>use charnames qw( :full :short )</code>'],
                ],
                release => '2012-05-20',


@@ -208,11 +212,12 @@ my $wbr = "\N{ZERO WIDTH SPACE}";
 
        v5.18 => {
                new => [
 
        v5.18 => {
                new => [

+                       ['PERL_PERTURB_KEYS=1', 'hash overhaul; order is randomised instead of being semi-repeatable', {eg => 'each %{{%hash}} ne each %{{%hash}}'}],

                        ['<code>${^LAST_FH}</code>', 'last read filehandle (used by <code>$.</code>)'],
                        ['<code>/(?[ a + b ])/</code>', 'regex set operations (character subtraction <code>-</code>, union <code>+</code>, intersection <code>&amp;</code>, xor <code>^</code>)', {experimental => 'regex_sets', stable => v5.36}],
                        ['<code>my sub</code>', 'lexical subroutines (also <code>state</code>, <code>our</code>); buggy before v5.22', {experimental => 'lexical_subs', stable => v5.26}],
                        ['<code>next $expression</code>', 'loop controls allow runtime expressions'],
                        ['<code>${^LAST_FH}</code>', 'last read filehandle (used by <code>$.</code>)'],
                        ['<code>/(?[ a + b ])/</code>', 'regex set operations (character subtraction <code>-</code>, union <code>+</code>, intersection <code>&amp;</code>, xor <code>^</code>)', {experimental => 'regex_sets', stable => v5.36}],
                        ['<code>my sub</code>', 'lexical subroutines (also <code>state</code>, <code>our</code>); buggy before v5.22', {experimental => 'lexical_subs', stable => v5.26}],
                        ['<code>next $expression</code>', 'loop controls allow runtime expressions'],

-                       [q"<code>no warnings 'experimental::…'</code>", 'mechanism for experimental features, as of now required for <em>smartmatch</em>'],
+                       [q"<code>no warnings 'experimental::…'</code>", 'mechanism for experimental features, as of now required for <a href="#switch">smartmatch</a>'],

                ],
                release => '2013-05-18',
                distro => {
                ],
                release => '2013-05-18',
                distro => {


@@ -225,9 +230,9 @@ my $wbr = "\N{ZERO WIDTH SPACE}";
 
        v5.20 => {
                new => [
 
        v5.20 => {
                new => [

-                       ['<code>sub ($var)</code>', 'subroutine signatures', {feature => 'signatures', experimental => 'signatures', stable => v5.36}],
+                       ['<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>%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',
                        [q"<code>use warnings 'once'; $a</code>", 'variables $a and $b are exempt from <em>used once</em> warnings'],
                ],
                unicode => '6.3',


@@ -245,10 +250,10 @@ my $wbr = "\N{ZERO WIDTH SPACE}";
        v5.22 => {
                new => [
                        ['<code>\$alias =</code>', 'aliasing via reference (scoped as of v5.25.3)', {experimental => 'refaliasing'}],
        v5.22 => {
                new => [
                        ['<code>\$alias =</code>', 'aliasing via reference (scoped as of v5.25.3)', {experimental => 'refaliasing'}],

-                       ['<code>&lt;&lt;>></code>', 'safe <code>readline</code> ignoring open flags in arguments'],
+                       ['<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>/()/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>'],
                        [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>'],


@@ -280,6 +285,7 @@ my $wbr = "\N{ZERO WIDTH SPACE}";
 
        v5.26 => {
                new => [
 
        v5.26 => {
                new => [

+                       ["<code><s>use lib '.'</s></code>", 'current directory no longer included in default module search path <code>@INC</code>'],

                        ['<code>&lt;&lt;~EOT</code>', 'indented here-docs, strips same whitespace before delimiter in each line'],
                        ['<code>@{^CAPTURE}</code>', q"array of last match's captures, so <code>${^CAPTURE}[0]</code> is <code>$1</code>"],
                        ['<code>//xx</code>', 'extended modifier to also ignore whitespace in bracketed character classes'],
                        ['<code>&lt;&lt;~EOT</code>', 'indented here-docs, strips same whitespace before delimiter in each line'],
                        ['<code>@{^CAPTURE}</code>', q"array of last match's captures, so <code>${^CAPTURE}[0]</code> is <code>$1</code>"],
                        ['<code>//xx</code>', 'extended modifier to also ignore whitespace in bracketed character classes'],


@@ -336,11 +342,11 @@ my $wbr = "\N{ZERO WIDTH SPACE}";
 
        v5.32 => {
                new => [
 
        v5.32 => {
                new => [

-                       ['<code>isa</code>', 'infix operator to check class instance', {feature => 'isa', experimental => 'isa', stable => v5.36}],
+                       ['<code>isa</code>', 'infix operator to check class instance', {feature => 'isa', experimental => 'isa', stable => v5.36, bundle => 0}],

                        ['<code>$min &lt; $_ &lt;= $max</code>', 'chained comparison repeats inner part as <code>$min &lt; $_ and $_ &lt;= $max</code>'],
                        ['<code>/\p{Name=$var}/</code>', 'match Unicode Name property like <code>\N{}</code> but with interpolation and subpatterns'],
                        [q"<code>open F, '+&gt;&gt;', undef</code>", 'respect append mode on temporary files with mixed access'],
                        ['<code>$min &lt; $_ &lt;= $max</code>', 'chained comparison repeats inner part as <code>$min &lt; $_ and $_ &lt;= $max</code>'],
                        ['<code>/\p{Name=$var}/</code>', 'match Unicode Name property like <code>\N{}</code> but with interpolation and subpatterns'],
                        [q"<code>open F, '+&gt;&gt;', undef</code>", 'respect append mode on temporary files with mixed access'],

-                       ["<code>no feature 'indirect'</code>", 'disable indirect object notation such as <code>new Class</code> instead of <code>Class-&gt;new</code>'],
+                       ["<code>no feature 'indirect'</code>", 'disable indirect object notation such as <code>new Class</code> instead of <code>Class-&gt;new</code>', {name => 'indirect', bundle => v5.36}],

                        ['streamzip', 'program distributed with core IO::Compress::Base to compress stdin into a zip container'],
                ],
                unicode => '13.0',
                        ['streamzip', 'program distributed with core IO::Compress::Base to compress stdin into a zip container'],
                ],
                unicode => '13.0',


@@ -358,12 +364,12 @@ my $wbr = "\N{ZERO WIDTH SPACE}";
 
        v5.34 => {
                new => [
 
        v5.34 => {
                new => [

-                       ['<code>try {} catch</code>', 'exception handling similar to eval blocks', {feature => 'try', experimental => 'try', stable => v5.40}],
+                       ['<code>try {} catch</code>', 'exception handling similar to eval blocks', {feature => 'try', experimental => 'try', stable => v5.40, bundle => 0}],

                        ['<code>/{,<i>n</i>}/</code>', 'empty lower bound quantifier is accepted as shorthand for 0'],
                        ['<code>\x{ … }</code>', 'insignificant space within curly braces, also for <code>\b{}</code>, <code>\g{}</code>, <code>\k{}</code>, <code>\N{}</code>, <code>\o{}</code> as well as <code>/{m,n}/</code> quantifiers'],
                        ['<code>0o0</code>', 'octal prefix <code>0o</code> alternative to <code>0…</code> and <code>oct</code>'],
                        ["<code>re::optimization(${wbr}qr//)</code>", 'debug regular expression optimization information discovered at compile time'],
                        ['<code>/{,<i>n</i>}/</code>', 'empty lower bound quantifier is accepted as shorthand for 0'],
                        ['<code>\x{ … }</code>', 'insignificant space within curly braces, also for <code>\b{}</code>, <code>\g{}</code>, <code>\k{}</code>, <code>\N{}</code>, <code>\o{}</code> as well as <code>/{m,n}/</code> quantifiers'],
                        ['<code>0o0</code>', 'octal prefix <code>0o</code> alternative to <code>0…</code> and <code>oct</code>'],
                        ["<code>re::optimization(${wbr}qr//)</code>", 'debug regular expression optimization information discovered at compile time'],

-                       ['<code>no feature …</code>', 'disable discouraged practices of <code>bareword_filehandles</code> and <code>multidimensional</code> array emulation'],
+                       ['<code>no feature …</code>', 'disable discouraged practices of <code>multidimensional</code> and <code>bareword_filehandles</code> array emulation', {name => 'feature_534', bundle => [v5.36, v5.38]}],

                ],
                release => '2021-05-20',
                distro => {
                ],
                release => '2021-05-20',
                distro => {


@@ -374,8 +380,8 @@ my $wbr = "\N{ZERO WIDTH SPACE}";
 
        v5.36 => {
                new => [
 
        v5.36 => {
                new => [

-                       ['<code>use v5.36</code>', "use <code>warnings</code>; use feature qw'<code>signatures isa</code>'; no feature qw'<code>indirect multidimensional switch</code>'"],
-                       ['<code>use builtin</code>', 'namespace for interpreter functions, such as <code>weaken</code> and <code>blessed</code> from <code>Scalar::Util</code>, <code>ceil</code>/<code>floor</code> from <code>POSIX</code>, and <code>trim</code> like <code>String::Util</code>', {experimental => 'builtin', stable => v5.40}],
+                       ['<code>use v5.36</code>', q{use <code><a href="#warnings">warnings</a></code>; use feature qw'<code><a href="#signature">signatures</a> <a href="#isa">isa</a></code>'; no feature qw'<code><a href="#indirect">indirect</a> <a href="#feature_534">multidimensional</a> <a href="#switch">switch</a></code>'}],
+                       ['<code>use builtin</code>', 'namespace for interpreter functions, such as <code>weaken</code> and <code>blessed</code> from <code>Scalar::Util</code>, <code>ceil</code>/<code>floor</code> from <code>POSIX</code>, and <code>trim</code> like <code>String::Util</code>', {experimental => 'builtin', stable => v5.40, bundle => 0}],

                        ['<code>is_bool(!0)</code>', 'distinguish scalar variable types (by <code>builtin</code> functions) for data interoperability', {name => 'is_bool'}],
                        ['<code>for my ($k, $v) (%hash)</code>', 'iterate over multiple values at a time (including <code>builtin::indexed</code> for arrays)', {experimental => 'for_list', feature => 'for_list', stable => v5.40}],
                        ['<code>defer {}</code>', 'queue code to be executed when going out of scope', {feature => 'defer', experimental => 'defer'}],
                        ['<code>is_bool(!0)</code>', 'distinguish scalar variable types (by <code>builtin</code> functions) for data interoperability', {name => 'is_bool'}],
                        ['<code>for my ($k, $v) (%hash)</code>', 'iterate over multiple values at a time (including <code>builtin::indexed</code> for arrays)', {experimental => 'for_list', feature => 'for_list', stable => v5.40}],
                        ['<code>defer {}</code>', 'queue code to be executed when going out of scope', {feature => 'defer', experimental => 'defer'}],


@@ -395,7 +401,7 @@ my $wbr = "\N{ZERO WIDTH SPACE}";
 
        v5.38 => {
                new => [
 
        v5.38 => {
                new => [

-                       ['<code>use feature "module_true"</code>', 'default in use 5.37 and up, also <code>no feature "bareword_filehandles"</code>'],
+                       ['<code>use feature "module_true"</code>', 'packages implicitly return true, enabled along with <code>no feature "<a href="#feature_534">bareword_filehandles</a>"</code>', {name => 'module_true', bundle => 0}],

                        ['<code>sub ($var ||=</code> default<code>)</code>', 'assign values when false (or undefined on <code>//=</code>) instead of omitted'],
                        ['<code>/(*{ … })/</code>', 'optimistic eval: <code>(?{ … })</code> with regex optimisations enabled'],
                        ['<code>class</code>', "define object classes: packages with <code>field</code> variables and <code>method</code> subroutines", {feature => 'class', experimental => 'class'}],
                        ['<code>sub ($var ||=</code> default<code>)</code>', 'assign values when false (or undefined on <code>//=</code>) instead of omitted'],
                        ['<code>/(*{ … })/</code>', 'optimistic eval: <code>(?{ … })</code> with regex optimisations enabled'],
                        ['<code>class</code>', "define object classes: packages with <code>field</code> variables and <code>method</code> subroutines", {feature => 'class', experimental => 'class'}],


@@ -412,7 +418,7 @@ my $wbr = "\N{ZERO WIDTH SPACE}";
        v5.40 => {
                new => [
                        ['<code>use v5.40</code>', 'import <a href="#builtin">builtin</a> functions and enable the <a href="#try">try</a> feature'],
        v5.40 => {
                new => [
                        ['<code>use v5.40</code>', 'import <a href="#builtin">builtin</a> functions and enable the <a href="#try">try</a> feature'],

-                       ['<code>__CLASS__</code>', 'keyword to reference to the current class name, similar to <code>__PACKAGE__</code>', {feature => 'class'}],
+                       ['<code>__CLASS__</code>', 'keyword to reference to the current class name, similar to <code>__PACKAGE__</code>', {feature => 'class', name => 'class_ref'}],

                        ['<code>:reader</code>', 'attribute for <a href="#class">field</a> variables to create corresponding accessor methods', {feature => 'class'}],
                        ['<code>^^</code>', 'higher precedence logical <code>xor</code> operator, as <code>||</code> is to <code>or</code>'],
                        ['perl<code> -M&nbsp;…</code>', 'whitespace allowed after <code>-M</code> options', {dropped => 0}],
                        ['<code>:reader</code>', 'attribute for <a href="#class">field</a> variables to create corresponding accessor methods', {feature => 'class'}],
                        ['<code>^^</code>', 'higher precedence logical <code>xor</code> operator, as <code>||</code> is to <code>or</code>'],
                        ['perl<code> -M&nbsp;…</code>', 'whitespace allowed after <code>-M</code> options', {dropped => 0}],