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

1.69 -- 2025-04-01
	[CHANGES]
	 * Always allow `isvstring` to be exported even on Perl 5.6, where it
	   just returns false
	 * Fix string comparison logic that compares versions with `$]`

Author: leonerd

Porting/Maintainers.pl

@@ -1008,8 +1008,8 @@ package Maintainers;
     },
 
     'Scalar::Util' => {
-        'DISTRIBUTION' => 'PEVANS/Scalar-List-Utils-1.68.tar.gz',
-        'SYNCINFO'     => 'rich on Sun Oct 20 15:42:58 2024',
+        'DISTRIBUTION' => 'PEVANS/Scalar-List-Utils-1.69.tar.gz',
+        'SYNCINFO'     => 'jkeenan on Thu Apr 10 21:01:49 2025',
         'FILES'        => q[cpan/Scalar-List-Utils],
         'CUSTOMIZED'   => [
             'ListUtil.xs',

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

@@ -2,7 +2,7 @@ package Scalar::List::Utils;
 use strict;
 use warnings;
 
-our $VERSION    = "1.68";
+our $VERSION    = "1.69";
 $VERSION =~ tr/_//d;
 
 1;

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

@@ -4,17 +4,18 @@ use strict;
 use warnings;
 
 $|=1;
-use Scalar::Util ();
-use Test::More  (grep { /isvstring/ } @Scalar::Util::EXPORT_FAIL)
-    ? (skip_all => 'isvstring is not supported on this perl version')
-    : (tests => 3);
-
+use Test::More tests => 3;;
 use Scalar::Util qw(isvstring);
 
 my $vs = ord("A") == 193 ? 241.75.240 : 49.46.48;
 
 ok( $vs == "1.0", 'dotted num');
-ok( isvstring($vs), 'isvstring');
+if ($] >= 5.008000) {
+  ok( isvstring($vs), 'isvstring');
+}
+else {
+  ok( !isvstring($vs), "isvstring is false for all values on $]");
+}
 
 my $sv = "1.0";
 ok( !isvstring($sv), 'not isvstring');

cpan/Scalar-List-Utils/t/stack-corruption.t

@@ -1,7 +1,7 @@
 #!./perl
 
 BEGIN {
-    if ($] eq "5.008009" or $] eq "5.010000" or $] le "5.006002") {
+    if ("$]" == 5.008009 or "$]" == 5.010000 or "$]" <= 5.006002) {
         print "1..0 # Skip: known to fail on $]\n";
         exit 0;
     }

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

@@ -98,7 +98,7 @@ SKIP: {
   cmp_ok($t, 'gt', 1152921504606846976, 'sum uses IV where it can'); # string comparison because Perl 5.6 does not compare it numerically correctly
 
   SKIP: {
-    skip "known to fail on $]", 1 if $] le "5.006002";
+    skip "known to fail on $]", 1 if "$]" <= 5.006002;
     $t = sum(1<<60, 1);
     cmp_ok($t, '>', 1<<60, 'sum uses IV where it can');
   }

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

@@ -44,7 +44,7 @@ is_deeply( [ uniqstr qw( 1 1.0 1E0 ) ],
 }
 
 SKIP: {
-    skip 'Perl 5.007003 with utf8::encode is required', 3 if $] lt "5.007003";
+    skip 'Perl 5.007003 with utf8::encode is required', 3 if "$]" < 5.007003;
     my $warnings = "";
     local $SIG{__WARN__} = sub { $warnings .= join "", @_ };
 
@@ -99,7 +99,7 @@ is_deeply( [ uniqint 6.1, 6.2, 6.3 ],
 }
 
 SKIP: {
-    skip('UVs are not reliable on this perl version', 2) unless $] ge "5.008000";
+    skip('UVs are not reliable on this perl version', 2) unless "$]" >= 5.008000;
 
     my $maxbits = $Config{ivsize} * 8 - 1;
 
@@ -153,7 +153,7 @@ is( scalar( uniqstr qw( a b c d a b e ) ), 5, 'uniqstr() in scalar context' );
 }
 
 SKIP: {
-    skip('int overload requires perl version 5.8.0', 1) unless $] ge "5.008000";
+    skip('int overload requires perl version 5.8.0', 1) unless "$]" >= 5.008000;
 
     package Googol;
 

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

@@ -296,7 +296,7 @@ SKIP: {
 # uniqnum not confused by IV'ified floats
 SKIP: {
     # This fails on 5.6 and isn't fixable without breaking a lot of other tests
-    skip 'This perl version gets confused by IVNV dualvars', 1 if $] lt '5.008000';
+    skip 'This perl version gets confused by IVNV dualvars', 1 if "$]" <= 5.008000;
     my @nums = ( 2.1, 2.2, 2.3 );
     my $dummy = sprintf "%d", $_ for @nums;