cpan/Scalar-List-Utils - Update to version 1.68

1.68 -- 2024-10-18
	[CHANGES]
	 * Added (empty) Scalar::List::Utils module so that a module exists
	   which matches the name of the distribution (GH #135)

Author: richardleach

MANIFEST

@@ -2213,6 +2213,7 @@ cpan/podlators/t/text/termcap.t					podlators test
 cpan/podlators/t/text/utf8-io.t					Test file related to podlators
 cpan/Scalar-List-Utils/lib/List/Util.pm		List::Util
 cpan/Scalar-List-Utils/lib/List/Util/XS.pm	List::Util
+cpan/Scalar-List-Utils/lib/Scalar/List/Utils.pm	Scalar-List-Utils
 cpan/Scalar-List-Utils/lib/Scalar/Util.pm	Scalar::Util
 cpan/Scalar-List-Utils/lib/Sub/Util.pm		Module related to Scalar::Util
 cpan/Scalar-List-Utils/ListUtil.xs		Util extension

Porting/Maintainers.pl

@@ -999,8 +999,8 @@ package Maintainers;
     },
 
     'Scalar::Util' => {
-        'DISTRIBUTION' => 'PEVANS/Scalar-List-Utils-1.66.tar.gz',
-        'SYNCINFO'     => 'tib on Fri Sep 20 08:05:21 2024',
+        'DISTRIBUTION' => 'PEVANS/Scalar-List-Utils-1.68.tar.gz',
+        'SYNCINFO'     => 'rich on Sun Oct 20 15:42:58 2024',
         'FILES'        => q[cpan/Scalar-List-Utils],
     },
 

cpan/Scalar-List-Utils/ListUtil.xs

@@ -1605,7 +1605,8 @@ PPCODE:
         AV *av;
 
         if(!SvROK(arg) || SvTYPE(SvRV(arg)) != SVt_PVAV)
-            croak("Expected an ARRAY reference to zip");
+            croak("Expected an ARRAY reference to %s",
+                is_mesh ? "mesh" : "zip");
         av = lists[i] = (AV *)SvRV(arg);
 
         if(!i) {
@@ -1640,7 +1641,7 @@ PPCODE:
                     AvARRAY(lists[listi])[i] :
                     &PL_sv_undef;
 
-                mPUSHs(SvREFCNT_inc(item));
+                mPUSHs(newSVsv(item));
             }
         }
 
@@ -1659,7 +1660,7 @@ PPCODE:
                     AvARRAY(lists[listi])[i] :
                     &PL_sv_undef;
 
-                av_push(ret, SvREFCNT_inc(item));
+                av_push(ret, newSVsv(item));
             }
 
             mPUSHs(newRV_noinc((SV *)ret));

cpan/Scalar-List-Utils/lib/List/Util.pm

@@ -16,7 +16,7 @@ our @EXPORT_OK  = qw(
   sample shuffle uniq uniqint uniqnum uniqstr zip zip_longest zip_shortest mesh mesh_longest mesh_shortest
   head tail pairs unpairs pairkeys pairvalues pairmap pairgrep pairfirst
 );
-our $VERSION    = "1.66";
+our $VERSION    = "1.68";
 our $XS_VERSION = $VERSION;
 $VERSION =~ tr/_//d;
 

cpan/Scalar-List-Utils/lib/List/Util/XS.pm

@@ -3,7 +3,7 @@ use strict;
 use warnings;
 use List::Util;
 
-our $VERSION = "1.66";       # FIXUP
+our $VERSION = "1.68";       # FIXUP
 $VERSION =~ tr/_//d;         # FIXUP
 
 1;

cpan/Scalar-List-Utils/lib/Scalar/List/Utils.pm

@@ -0,0 +1,43 @@
+package Scalar::List::Utils;
+use strict;
+use warnings;
+
+our $VERSION    = "1.68";
+$VERSION =~ tr/_//d;
+
+1;
+
+__END__
+
+=head1 NAME
+
+Scalar::List::Utils - A distribution of general-utility subroutines
+
+=head1 SYNOPSIS
+
+    use Scalar::Util qw(blessed);
+    use List::Util qw(any);
+
+=head1 DESCRIPTION
+
+C<Scalar::List::Utils> does nothing on its own. It is packaged with several
+useful modules.
+
+=head1 MODULES
+
+=head2 L<List::Util>
+
+L<List::Util> contains a selection of useful subroutines for operating on lists
+of values.
+
+=head2 L<Scalar::Util>
+
+L<Scalar::Util> contains a selection of useful subroutines for interrogating
+or manipulating scalar values.
+
+=head2 L<Sub::Util>
+
+L<Sub::Util> contains a selection of useful subroutines for interrogating
+or manipulating subroutine references.
+
+=cut

cpan/Scalar-List-Utils/lib/Scalar/Util.pm

@@ -17,7 +17,7 @@ our @EXPORT_OK = qw(
   dualvar isdual isvstring looks_like_number openhandle readonly set_prototype
   tainted
 );
-our $VERSION    = "1.66";
+our $VERSION    = "1.68";
 $VERSION =~ tr/_//d;
 
 require List::Util; # List::Util loads the XS

cpan/Scalar-List-Utils/lib/Sub/Util.pm

@@ -15,7 +15,7 @@ our @EXPORT_OK = qw(
   subname set_subname
 );
 
-our $VERSION    = "1.66";
+our $VERSION    = "1.68";
 $VERSION =~ tr/_//d;
 
 require List::Util; # as it has the XS

cpan/Scalar-List-Utils/t/mesh.t

@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 7;
+use Test::More tests => 8;
 use List::Util qw(mesh mesh_longest mesh_shortest);
 
 is_deeply( [mesh ()], [],
@@ -29,3 +29,13 @@ ok( !defined eval { mesh 1, 2, 3 },
 
 ok( !defined eval { mesh +{ one => 1 } },
   'reference to non array throws exception' );
+
+# related to RT156183
+{
+  my @inp = ( [1,2,3], [4,5,6] );
+  foreach my $x ( mesh @inp ) {
+    $x++;
+  }
+  is_deeply( \@inp, [ [1,2,3], [4,5,6] ],
+    'original values unchanged by modification of mesh() output' );
+}

cpan/Scalar-List-Utils/t/zip.t

@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 7;
+use Test::More tests => 8;
 use List::Util qw(zip zip_longest zip_shortest);
 
 is_deeply( [zip ()], [],
@@ -29,3 +29,14 @@ ok( !defined eval { zip 1, 2, 3 },
 
 ok( !defined eval { zip +{ one => 1 } },
   'reference to non array throws exception' );
+
+# RT156183
+{
+  my @inp = ( [1,2,3], [4,5,6] );
+  foreach my $pair ( zip @inp ) {
+    $pair->[0]++;
+    $pair->[1]++;
+  }
+  is_deeply( \@inp, [ [1,2,3], [4,5,6] ],
+    'original values unchanged by modification of zip() output' );
+}