diff -Nru libscalar-list-utils-perl-1.61/Changes libscalar-list-utils-perl-1.62/Changes --- libscalar-list-utils-perl-1.61/Changes 2022-02-16 12:40:34.000000000 +0000 +++ libscalar-list-utils-perl-1.62/Changes 2022-03-17 15:32:18.000000000 +0000 @@ -1,5 +1,13 @@ +1.62 -- 2022-03-17 + [CHANGES] + * Prepare for perl 5.35.10 release: + + Skip the tainted tests if your perl was built without taint + support + + Document the existence of the `builtin::` equivalents for + several Scalar::Util functions + 1.61 -- 2022-02-16 - [BUGFIXES} + [BUGFIXES] * Fix some more signed comparison warnings (Perl5 #19429) 1.60 -- 2021-10-08 diff -Nru libscalar-list-utils-perl-1.61/debian/changelog libscalar-list-utils-perl-1.62/debian/changelog --- libscalar-list-utils-perl-1.61/debian/changelog 2022-02-20 15:29:06.000000000 +0000 +++ libscalar-list-utils-perl-1.62/debian/changelog 2022-03-20 21:17:02.000000000 +0000 @@ -1,3 +1,10 @@ +libscalar-list-utils-perl (1:1.62-1) unstable; urgency=medium + + * Team upload. + * Import upstream version 1.62. + + -- gregor herrmann Sun, 20 Mar 2022 22:17:02 +0100 + libscalar-list-utils-perl (1:1.61-1) unstable; urgency=medium * Team upload. diff -Nru libscalar-list-utils-perl-1.61/lib/List/Util/XS.pm libscalar-list-utils-perl-1.62/lib/List/Util/XS.pm --- libscalar-list-utils-perl-1.61/lib/List/Util/XS.pm 2022-02-16 12:40:34.000000000 +0000 +++ libscalar-list-utils-perl-1.62/lib/List/Util/XS.pm 2022-03-17 15:32:18.000000000 +0000 @@ -3,7 +3,7 @@ use warnings; use List::Util; -our $VERSION = "1.61"; # FIXUP +our $VERSION = "1.62"; # FIXUP $VERSION =~ tr/_//d; # FIXUP 1; diff -Nru libscalar-list-utils-perl-1.61/lib/List/Util.pm libscalar-list-utils-perl-1.62/lib/List/Util.pm --- libscalar-list-utils-perl-1.61/lib/List/Util.pm 2022-02-16 12:40:34.000000000 +0000 +++ libscalar-list-utils-perl-1.62/lib/List/Util.pm 2022-03-17 15:32:18.000000000 +0000 @@ -16,7 +16,7 @@ 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.61"; +our $VERSION = "1.62"; our $XS_VERSION = $VERSION; $VERSION =~ tr/_//d; diff -Nru libscalar-list-utils-perl-1.61/lib/Scalar/Util.pm libscalar-list-utils-perl-1.62/lib/Scalar/Util.pm --- libscalar-list-utils-perl-1.61/lib/Scalar/Util.pm 2022-02-16 12:40:34.000000000 +0000 +++ libscalar-list-utils-perl-1.62/lib/Scalar/Util.pm 2022-03-17 15:32:18.000000000 +0000 @@ -17,7 +17,7 @@ dualvar isdual isvstring looks_like_number openhandle readonly set_prototype tainted ); -our $VERSION = "1.61"; +our $VERSION = "1.62"; $VERSION =~ tr/_//d; require List::Util; # List::Util loads the XS @@ -64,6 +64,21 @@ By default C does not export any subroutines. +=head2 Core Perl C Functions + +Many functions in this module have served as the inspiration for a new +experimental facility in recent versions of Perl. From various development +versions, starting at 5.35.7, equivalent functions to many of these utilities +are available in the C package. + + use Scalar::Util qw(blessed); + + $class = blessed $obj; + + $class = builtin::blessed $obj; # equivalent + +For more information, see the documentation on L. + =cut =head1 FUNCTIONS FOR REFERENCES @@ -89,6 +104,9 @@ Take care when using this function simply as a truth test (such as in C) because the package name C<"0"> is defined yet false. +I an equivalent function is available as +C. + =head2 refaddr my $addr = refaddr( $ref ); @@ -103,6 +121,9 @@ $obj = bless {}, "Foo"; $addr = refaddr $obj; # eg 88123488 +I an equivalent function is available as +C. + =head2 reftype my $type = reftype( $ref ); @@ -123,6 +144,9 @@ on these but C will return the underlying C structure type of C<"REGEXP"> in all capitals. +I an equivalent function is available as +C. + =head2 weaken weaken( $ref ); @@ -162,6 +186,9 @@ destroyed because there is now always a strong reference to them in the @object array. +I an equivalent function is available as +C. + =head2 unweaken unweaken( $ref ); @@ -183,6 +210,9 @@ (because in particular, simply assigning a weak reference back to itself does not work to unweaken it; C<$REF = $REF> does not work). +I an equivalent function is available as +C. + =head2 isweak my $weak = isweak( $ref ); @@ -199,6 +229,9 @@ $copy = $ref; $weak = isweak($copy); # false +I an equivalent function is available as +C. + =head1 OTHER FUNCTIONS =head2 dualvar diff -Nru libscalar-list-utils-perl-1.61/lib/Sub/Util.pm libscalar-list-utils-perl-1.62/lib/Sub/Util.pm --- libscalar-list-utils-perl-1.61/lib/Sub/Util.pm 2022-02-16 12:40:34.000000000 +0000 +++ libscalar-list-utils-perl-1.62/lib/Sub/Util.pm 2022-03-17 15:32:18.000000000 +0000 @@ -15,7 +15,7 @@ subname set_subname ); -our $VERSION = "1.61"; +our $VERSION = "1.62"; $VERSION =~ tr/_//d; require List::Util; # as it has the XS diff -Nru libscalar-list-utils-perl-1.61/META.json libscalar-list-utils-perl-1.62/META.json --- libscalar-list-utils-perl-1.61/META.json 2022-02-16 12:42:08.000000000 +0000 +++ libscalar-list-utils-perl-1.62/META.json 2022-03-17 15:37:11.000000000 +0000 @@ -53,6 +53,6 @@ "web" : "https://github.com/Scalar-List-Utils/Scalar-List-Utils" } }, - "version" : "1.61", + "version" : "1.62", "x_serialization_backend" : "JSON::PP version 4.06" } diff -Nru libscalar-list-utils-perl-1.61/META.yml libscalar-list-utils-perl-1.62/META.yml --- libscalar-list-utils-perl-1.61/META.yml 2022-02-16 12:42:08.000000000 +0000 +++ libscalar-list-utils-perl-1.62/META.yml 2022-03-17 15:37:11.000000000 +0000 @@ -23,5 +23,5 @@ resources: bugtracker: https://rt.cpan.org/Public/Dist/Display.html?Name=Scalar-List-Utils repository: https://github.com/Scalar-List-Utils/Scalar-List-Utils.git -version: '1.61' +version: '1.62' x_serialization_backend: 'CPAN::Meta::YAML version 0.018' diff -Nru libscalar-list-utils-perl-1.61/t/tainted.t libscalar-list-utils-perl-1.62/t/tainted.t --- libscalar-list-utils-perl-1.61/t/tainted.t 2022-02-16 12:40:34.000000000 +0000 +++ libscalar-list-utils-perl-1.62/t/tainted.t 2022-03-17 15:29:05.000000000 +0000 @@ -3,10 +3,18 @@ use strict; use warnings; -use Test::More tests => 5; - +use Config; +use Test::More; use Scalar::Util qw(tainted); +if (exists($Config{taint_support}) && not $Config{taint_support}) { + plan skip_all => "your perl was built without taint support"; +} +else { + plan tests => 5; +} + + ok( !tainted(1), 'constant number'); my $var = 2;