countries: hardcode codes reserved for WIPO
[sheet.git] / perl.inc.pl
index 2c76e59635bb97af574183c44030357bc0a41f38..67774cf187238325522aefd715afe169b03bf32d 100644 (file)
@@ -3,35 +3,46 @@ use utf8;
 +{
        v5.6 => {
                new => [
-                       ['<code>use utf8</code>'],
-                       ['<code>\N{named character}</code>'],
-                       ['<code>our</code>'],
-                       ['<code>v1.2.3</code>'],
-                       ['<code>sub :locked :method</code>'],
-                       ['<code>open $fh, $mode, $expr</code>'],
+                       ['<code>use warnings</code>', 'pragma to enable warnings in lexical scope'],
+                       ['<code>use utf8</code>', 'experimental unicode semantics <small>(completed in v5.8)</small>'],
+                       ['<code>use charnames</code>', 'string escape <code>\N{}</code> to insert named character'],
+                       ['<code>our</code>', 'declare global variables'],
+                       ['<code>v1.2.3</code>', q`represent strings as vector of ordinals, useful in version numbers (<code>printf '%vd'</code> to display)`],
+                       ['<code>0b0</code>', q`binary numbers in literals, <code>printf '%b'</code>, and <code>oct</code>`],
+                       ['<code>sub :lvalue</code>', 'subroutine attribute to return a modifiable value'],
+#                      ['<code>sub :locked :method</code>', 'syntax to declare subroutine attributes'], # can be inferred from :lvalue support
+                       ['<code>open my $fh, $mode, $expr</code>', 'file handles in scoped scalars, third argument for unambiguous file name'],
+                       [q`<code>pack 'q'</code>`, '64-bit integer support (also large files &gt;2GiB)'],
+                       ['<code>sort $coderef ()</code>', 'comparison function can be a subroutine reference; prototype <code>($$)</code> to pass elements as normal <code>@_</code>'],
+                       ['<code>CHECK {}</code>', 'special block called at end of compilation'],
+                       ['<code>/[[:…:]]/</code>', 'POSIX character class syntax such as <code>/[[:alpha:]]/</code>'],
+                       # quite a lot more, but leave it at this
                ],
                release => '2000-03-23',
                distro => {
                        debian => 'woody',
-                       redhat => '2.1',
+                       rhel => '2', # v5.6.0; also in red hat 7.0
+                       solaris => '9', # v5.6.1; 2002-05 eol 2014-10
                },
                unicode => '3.0.1',
        },
 
        v5.8 => {
                new => [
-                       [q`<code>no utf8; $unicode</code>`, 'unicode overhaul: additional /\p{}/ properties'],
+                       [q`<code>no utf8</code>`, 'full unicode support, <code>utf8</code> pragma only for script encoding'],
                        [q`<code>binmode $fh, ':perlio'</code>`, 'file handle behaviour altered by PerlIO layers'],
                        [q`<code>open $fh, '-|', @cmd</code>`, 'open list to fork a command without spawning a shell'],
                        [q`<code>open $fh, '>', \$var</code>`, 'perl scalars as virtual files'],
                        [q`<code>printf '%1$s', @args</code>`, 'syntax to use parameters out of order'],
-                       [q`<code>$num = 1_000</code>`, 'underscores between digits allowed in numeric constants'],
+                       [q`<code>1_2_3 == 123</code>`, 'underscores between digits allowed in numeric constants'],
 #                      [q`<code>use if</code>`, 'conditional module inclusion'], # also installable in earlier versions
                ],
                release => '2002-07-18',
                distro => {
                        debian => 'sarge',
-                       redhat => '3.9',
+                       rhel => '3', # v5.8.0; v5.8.8 in RHEL6 (2007-2014)
+                       solaris => '10', # v5.8.4; 2005-01 eol 2021-01
+                       centos => '3-5', # v5.8.0 in v3 (2004-03); v5.8.8 in v5 (eol 2017-03)
                },
                unicode => '3.2.0',
        },
@@ -39,7 +50,7 @@ use utf8;
        v5.10 => {
                new => [
                        ['<code>//</code>', 'defined-or operator'],
-                       ['<code>~~</code>', 'smart-match operator to compare different data types'],
+                       ['<code>~~</code>', 'smart-match operator to compare different data types <small>(updated in v5.10.1)</small>'],
                        ['<code>given</code>', 'switch statement to smart-match with <code>when</code>/<code>default</code>'],
                        ['<code>/(?&lt;name>)/</code>', 'named capture buffers into <code>%+</code>'],
                        ['<code>s/keep\K//</code>', 'floating positive lookbehind, efficient alternative for <code>s/(keep)/$1/</code>'],
@@ -49,7 +60,8 @@ use utf8;
                release => '2007-12-18',
                distro => {
                        debian => 'lenny',
-                       redhat => '6.5',
+                       rhel => '6', # v5.10.1
+                       centos => '6', # v5.10.1 (2011-07 eol 2020-11)
                },
                unicode => '5.0.0',
        },
@@ -60,17 +72,22 @@ use utf8;
                        ['<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'],
+                       [q(<code>use overload 'qr'</code>), 'customisable conversion to regular expressions'],
+                       ['<code>/\N/</code>', 'inverse \n to match any character except newline regardless of <code>/s</code>'],
                ],
                release => '2010-04-12',
                unicode => '5.2',
+               distro => {
+                       solaris => '11', # also v5.8.4; 2010-11 eol 2024-11
+               },
        },
 
        v5.14 => {
                new => [
                        ['<code>s///r</code>', 'non-destructive substitution'],
                        ['<code>/(?^)/</code>', 'construct to reset to default modifiers'],
-                       ['<code>/(?{ m// })/</code>', 'regular expressions can be nested in <code>/(?{})/</code> and <code>/(??{})/</code>'],
-                       ["<code>use re '/flags'</code>", 'customize default modifiers'],
+                       ['<code>/(?{ m() })/</code>', 'regular expressions can be nested in <code>/(?{})/</code> and <code>/(??{})/</code>'],
+                       ["<code>use re '/flags'</code>", 'customise default modifiers'],
                        ['<code>each $ref</code> e.a.', 'array and hash container functions accept references'],
                        ['<code>FH->method</code>', 'filehandle method calls load IO::File on demand (eg. <code>STDOUT->flush</code>)'],
                ],
@@ -85,11 +102,12 @@ use utf8;
                new => [
                        ['<code>__SUB__</code>', 'current subroutine reference'],
                        ['<code>fc, "\F"</code>', 'unicode foldcase to compare case-insensitively'],
-                       ['<code>"\N{}"</code>', 'automatic use charnames qw( :full :short )'],
+                       ['<code>"\N{}"</code>', 'automatic <code>use charnames qw( :full :short )</code>'],
                ],
                release => '2012-05-20',
                distro => {
-                       redhat => '7.0',
+                       rhel => '7', # v5.16.3
+                       centos => '7', # v5.16.3 (2014-07 eol 2024-06)
                },
                unicode => '6.1',
        },
@@ -97,15 +115,12 @@ use utf8;
        v5.18 => {
                new => [
                        ['<code>${^LAST_FH}</code>', 'last read filehandle (used by <code>$.</code>)'],
-                       ['<code>/(?[ a + b ])/</code>', 'regex set operations (character substraction -, unions &amp;)'],
-                       ['<code>my sub foo</code>', 'lexical subroutines (also state, our)'],
+                       ['<code>/(?[ a + b ])/</code>', 'regex set operations (character substraction <code>-</code>, unions <code>&amp;</code>)'],
+                       ['<code>my sub</code>', 'lexical subroutines (also <code>state</code>, <code>our</code>)'],
                        ['<code>next $expression</code>', 'loop controls allow runtime expressions'],
                        [q(<code>no warnings 'experimental::…'</code>), 'mechanism for experimental features, as of now required for smartmatch'],
                ],
                release => '2013-05-18',
-               distro => {
-                       debian => 'jessie',
-               },
                unicode => '6.2',
        },
 
@@ -118,5 +133,19 @@ use utf8;
                ],
                unicode => '6.3',
                release => '2014-05-27',
+               distro => {
+                       debian => 'jessie',
+               },
+       },
+
+       v5.21.8 => {
+               new => [
+                       ['<code>\$alias =</code>', 'aliasing via reference'],
+                       ['<code>&lt;&lt;>></code>', 'safe readline ignoring open flags in arguments'],
+                       ['<code>/()/n</code>', 'flag to disable numbered capturing, turning <code>()</code> into <code>(?:)</code>'],
+               ],
+               unicode => '7.0',
+               release => '2015-01-20',
+               unstable => 1,
        },
 }