keyboard/altgr/index: move ctrl rows to distinct inventory mode

[sheet.git] / perl.inc.pl

diff --git a/perl.inc.pl b/perl.inc.pl
index ea1eb82f40c06da833abacf756b92b9494946cbb..449335b65435a91656734d81d87345aeae1a0de4 100644 (file)
--- a/perl.inc.pl
+++ b/perl.inc.pl
@@ -1,6 +1,7 @@
 use utf8;
 use strict;
 
 use utf8;
 use strict;
 

+my $wbr = "\N{ZERO WIDTH SPACE}";

 +{
        v5.004 => {
                release => '1997-05-15',
 +{
        v5.004 => {
                release => '1997-05-15',


@@ -85,7 +86,7 @@ use strict;
                        ['Memoize' => 'remember function results, trading space for time', 'memoize "stat"'],
                        ['MIME::Base64' => 'base64 encoded strings as in email attachments'],
                        ['Test::More' => 'modern framework for unit testing', 'is $got, $expected'],
                        ['Memoize' => 'remember function results, trading space for time', 'memoize "stat"'],
                        ['MIME::Base64' => 'base64 encoded strings as in email attachments'],
                        ['Test::More' => 'modern framework for unit testing', 'is $got, $expected'],

-                       ['Time::HiRes' => 'high resolution timers', '$μs = [gettimeofday]; sleep .1; $elapsed = tv_interval $μs'],
+                       ['Time::HiRes' => 'high resolution timers', '$μs = [gettimeofday]; sleep .1;'.$wbr.' $elapsed = tv_interval $μs'],

                ],
                release => '2002-07-18',
                distro => {
                ],
                release => '2002-07-18',
                distro => {


@@ -123,9 +124,9 @@ use strict;
                modules => [
                        [autodie => 'replace builtin functions to throw exceptions instead of returning failure', 'eval {open ...} or $@->matches("open") || die'],
                        # overloading
                modules => [
                        [autodie => 'replace builtin functions to throw exceptions instead of returning failure', 'eval {open ...} or $@->matches("open") || die'],
                        # overloading

-                       ['IO::Compress::Zip' => 'various file compression standards', 'zip IO::Uncompress::Gunzip->new("test.gz") => "recompressed.zip"'],
+                       ['IO::Compress::Zip' => 'various file compression standards', 'zip IO::Uncompress::Gunzip->new("test.gz")'.$wbr.' => "recompressed.zip"'],

                        ['Time::Piece' => 'timestamps as objects', 'localtime->year > 1900'],
                        ['Time::Piece' => 'timestamps as objects', 'localtime->year > 1900'],

-                       ['File::Fetch' => 'generic data retrieval/download', 'File::Fetch->new(uri => "http://localhost/")->fetch(to => \$slurp)'],
+                       ['File::Fetch' => 'generic data retrieval/download', 'File::Fetch->new(uri => "http://localhost/")'.$wbr.'->fetch(to => \$slurp)'],

                ],
                release => '2007-12-18',
                distro => {
                ],
                release => '2007-12-18',
                distro => {


@@ -217,6 +218,7 @@ use strict;
                distro => {
                        ubuntu => '14.04 LTS', # trusty
                        opensuse => '13.1', # 2013-11 eol 2016-01
                distro => {
                        ubuntu => '14.04 LTS', # trusty
                        opensuse => '13.1', # 2013-11 eol 2016-01

+                       macos => '10.15', # pre-installed catalina 2019-10

                },
                unicode => '6.2',
        },
                },
                unicode => '6.2',
        },


@@ -250,6 +252,8 @@ use strict;
                        [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>'],

+                       ['<code><s>use CGI</s></code>' => 'deprecated interface for serving http requests removed from core'
+                       .', see <a href="https://metacpan.org/pod/CGI::Alternatives" target=_blank>CGI::Alternatives</a>', {name => 'cgi'}],

                ],
                unicode => '7.0',
                release => '2015-06-01',
                ],
                unicode => '7.0',
                release => '2015-06-01',


@@ -309,6 +313,7 @@ use strict;
                        debian => '10', # buster 2019-07
                        ubuntu => '19.04', # disco 2019-04 eol 2020-01
                        freebsd => '11', # eol 2021-09
                        debian => '10', # buster 2019-07
                        ubuntu => '19.04', # disco 2019-04 eol 2020-01
                        freebsd => '11', # eol 2021-09

+                       macos => '11', # big sur 2020-11

                },
                distrosum => "stable systems such as Debian 10, Ubuntu 19.04, FreeBSD 11",
        },
                },
                distrosum => "stable systems such as Debian 10, Ubuntu 19.04, FreeBSD 11",
        },


@@ -319,11 +324,13 @@ use strict;
                        ['<code>m(\p{nv=/.*/})</code>', 'match unicode properties by regular expressions', {experimental => 'uniprop_wildcards'}],
                        ['<code><s>my $state if 0</s></code>', 'workaround for <code><a href="#state">state</a></code> (deprecated since v5.10!) is now prohibited'],
                        [q"<code>qr'\N'</code>", 'Delimiters must be graphemes; unescaped <code>{</code> illegal; <code>\N</code> in single quotes'],
                        ['<code>m(\p{nv=/.*/})</code>', 'match unicode properties by regular expressions', {experimental => 'uniprop_wildcards'}],
                        ['<code><s>my $state if 0</s></code>', 'workaround for <code><a href="#state">state</a></code> (deprecated since v5.10!) is now prohibited'],
                        [q"<code>qr'\N'</code>", 'Delimiters must be graphemes; unescaped <code>{</code> illegal; <code>\N</code> in single quotes'],

+                       ['<code><s>use Locale::Codes</s></code>', 'removed from core, get actual lists from CPAN', {dropped => v5.30}],

                ],
                unicode => '12.1',
                release => '2019-05-22',
                distro => {
                        ubuntu => '20.04', # focal LTS 2020-04 eol 2025-04
                ],
                unicode => '12.1',
                release => '2019-05-22',
                distro => {
                        ubuntu => '20.04', # focal LTS 2020-04 eol 2025-04

+                       macos => '11.3', # big sur 2021-04 and monterrey 2021-10, alongside compatibility v5.18

                },
        },
 
                },
        },