Add "split-space"

Changes

@@ -1,5 +1,8 @@
 Revision history for Syntax-Construct
 
+1.038   2024-10-01
+        - Add "split-space"
+
 1.037   2024-06-20
         - Fix turkic casing: reset original locale
 

lib/Syntax/Construct.pm

@@ -4,7 +4,7 @@ use 5.006002;
 use strict;
 use warnings;
 
-our $VERSION = '1.037';
+our $VERSION = '1.038';
 
 my %introduces = do { no warnings 'qw';
                  ( '5.040' => [qw[
@@ -51,6 +51,7 @@ my %introduces = do { no warnings 'qw';
                               ]],
                    '5.018' => [qw[
                                  computed-labels while-each method-on-any-string
+                                 split-space
                               ]],
                    '5.016' => [qw[
                                  charnames
@@ -301,7 +302,7 @@ Syntax::Construct - Explicitly state which non-feature constructs are used in th
 
 =head1 VERSION
 
-Version 1.037
+Version 1.038
 
 =head1 SYNOPSIS
 
@@ -654,6 +655,10 @@ See in L<perl5180delta/Selected Bug Fixes> or C<each> in L<perlfunc>.
 
 See [perl #105922] in L<perl5180delta/Selected Bug Fixes>.
 
+=head3 split-space
+
+See L<perl5180delta/split's first argument is more consistently interpreted>.
+
 =head2 5.020
 
 =head3 attr-prototype

t/02-constructs.t

@@ -227,6 +227,8 @@ my %tests = (
           1 ],
         [ 'method-on-any-string',
           '"3foo"->CORE::uc', '3FOO' ],
+        [ 'split-space',
+          'my $s = " "; join "", split $s, "a\tb"', 'ab']
     ],
 
     '5.016' => [

t/05-functions.t

@@ -6,7 +6,7 @@ use FindBin;
 
 my %count;
 BEGIN {
-    %count = (constructs => 100, old => 4, removed => 7);
+    %count = (constructs => 101, old => 4, removed => 7);
 }
 
 use Test::More tests => 5;

xt/completness.t

@@ -5,7 +5,7 @@ use FindBin;
 
 my $plan;
 BEGIN {
-    my %count = (constructs => 100,
+    my %count = (constructs => 101,
                  removed    => 7,
                  aliases    => 78,
                  old        => 4);