From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sat, 1 Apr 2017 14:38:57 +0000 (+0200)
Subject: perl: hidden features for version 5.005
X-Git-Tag: v1.10~267
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/7db6546c031c5fd8167a487cbda66d35280ec7cf

perl: hidden features for version 5.005
---

diff --git a/perl.inc.pl b/perl.inc.pl
index 940b16e..c8ffc08 100644
--- a/perl.inc.pl
+++ b/perl.inc.pl
@@ -1,6 +1,24 @@
 use utf8;
 
 +{
+	v5.005 => {
+		new => [
+			['threads' => '', {experimental => 0, stable => 0}],
+			['<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'],
+			['<code>…::</code>' => 'implicitly quoted package name'],
+			['<code>ref $@</code>' => '<code>die</code> passes reference values to exception handlers'],
+			['<code>INIT {}</code>', 'subs run just before the perl runtime begins execution'],
+			['<code>tie @…</code>' => 'base class for <code>TIEARRAY</code> implementations, and generally improved supported of tied handlers'],
+			['<code>substr …,…,…,$replace</code>', 'replacement string in 4th argument'],
+			['<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'],
+		],
+		release => '1998-07-22',
+		unstable => 0,
+	},
+
 	v5.6 => {
 		new => [
 			['<code>use warnings</code>', 'pragma to enable warnings in lexical scope'],
diff --git a/perl.plp b/perl.plp
index 17145e3..a5ef991 100644
--- a/perl.plp
+++ b/perl.plp
@@ -24,7 +24,7 @@ Depending on desired compatibility you'll want to support a minimum of
 my $info = do 'perl.inc.pl' or die $@ // $!;
 for my $vernum (reverse sort keys %{$info}) {
 	my $verrow = $info->{$vernum};
-	$verrow->{unstable} and next unless exists $get{v};
+	defined $verrow->{unstable} and next unless exists $get{v};
 
 	say '<div class="section">';
 	say sprintf '<h2>%vd <small>%s</small></h2><dl>', $vernum, $verrow->{release};