From 9cdf17f81bc6b6b16d82f48e1f8ae04c9f0886a7 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Tue, 30 May 2023 19:12:42 +0200
Subject: [PATCH] perl: significant modules for other versions

---
 perl.inc.pl | 33 +++++++++++++++++++++++++++++----
 1 file changed, 29 insertions(+), 4 deletions(-)

diff --git a/perl.inc.pl b/perl.inc.pl
index ba330ba..0b6ab2c 100644
--- a/perl.inc.pl
+++ b/perl.inc.pl
@@ -11,7 +11,7 @@ use utf8;
 
 	v5.005 => {
 		new => [
-			['threads' => '', {experimental => 0, stable => 0}],
+			['<code>lock</code>', 'obsolete <code>Thread</code> implementation, including a keyword to place advisory locks on shared variables', {experimental => 0, stable => 0, removed => v5.10}],
 			['<code>B::…</code>', 'backend hooks'],
 			['<code>qr//</code>' => 'overhauled regular expression engine: precompile operator, lookahead/behind, code, conditions, localised flags'],
 			['<code>… foreach</code>' => '<code>for(each)</code> as statement modifier, with large ranges optimised as counting loops'],
@@ -23,6 +23,13 @@ use utf8;
 			['<code>splice …,…,-$length</code>', 'negative length indicates elements to keep at the end of an array'],
 			['<code>$/</code>', 'integer or scalar separator makes <code>&lt;&gt;</code> read records instead of lines'],
 		],
+		modules => [
+			['Data::Dumper' => 'stringify data structures'],
+			['Errno' => 'system <code>errno.h</code> constants'],
+			['File::Spec'],
+			['Fatal'],
+			['Test'],
+		],
 		release => '1998-07-22',
 		unstable => 0,
 	},
@@ -64,15 +71,18 @@ use utf8;
 			[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>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
 		],
 		modules => [
+			[bignum => 'transparent big number support', 'length 1e100 == 101'],
+			[if => 'conditional module inclusion', 'no if $] >= 5.022, "warnings", "redundant"'],
+			[sort => 'override sort() algorithm', {dropped => v5.28, eg => 'sort::current eq "stable"'}],
 			[Digest => 'calculate various message digests (data hashes)', '$hash = sha256_hex($data)'],
 			[Encode => 'character set conversion', 'encode("utf8", decode("iso-8859-1", $octets))'],
-			#[sort => 'control sort() behaviour'],
+			['File::Temp' => 'create a temporary file or directory safely', '$fh = tempfile();'],
 			['List::Util' => 'general-utility list subroutines', '@cards = shuffle 0..51'],
+			['Locale::Maketext' => 'various localization and internationalization in <code>Locale::*</code> and <code>L18N::*</code>'],
+			['Memoize' => 'remember function results, trading space for time', 'memoize "stat"'],
 			['MIME::Base64' => 'base64 encoded strings as in email attachments'],
-			[open => 'set default PerlIO layers'],
 			['Test::More' => 'modern framework for unit testing', 'is $got, $expected'],
 			['Time::HiRes' => 'high resolution timers', '$μs = [gettimeofday]; sleep .1; $elapsed = tv_interval $μs'],
 		],
@@ -109,6 +119,13 @@ use utf8;
 			['<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'}],
 		],
+		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"'],
+			['Time::Piece' => 'timestamps as objects', 'localtime->year > 1900'],
+			['File::Fetch' => 'generic data retrieval/download', 'File::Fetch->new(uri => "http://localhost/")->fetch(to => \$slurp)'],
+		],
 		release => '2007-12-18',
 		distro => {
 			debian => '5.0', # lenny 2009-02 eol 2012-02
@@ -155,6 +172,11 @@ use utf8;
 			['<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'],
 		],
+		modules => [
+			[JSON => 'interface with data in JavaScript Object Notation', 'decode_json <>'],
+			['HTTP::Tiny' => 'minimal HTTP/1.1 client without <code>LWP::UserAgent</code> overhead'],
+			# Unicode::Collate::Locale
+		],
 		release => '2011-05-14',
 		distro => {
 			debian => '7', # wheezy 2013-05 eol 2018-05 elts 2020-06
@@ -257,6 +279,9 @@ use utf8;
 			['<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'],
 		],
+		modules => [
+			['Test2::V0' => 'generic testing framework to replace <code>Test::*</code> and <code>TAP::*</code>'],
+		],
 		unicode => '9.0', # also Script_Extensions/scx in "\p{script}"
 		release => '2017-05-30',
 		distro => {
-- 
2.30.0