From: Graham Barr Date: Sun, 10 Dec 2006 16:17:14 +0000 (+0000) Subject: Upgrade to Scalar-List-Utils-1.19 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ddf53ba4b8c9fde6237a7d93de673789b19fd993;p=p5sagit%2Fp5-mst-13.2.git Upgrade to Scalar-List-Utils-1.19 p4raw-id: //depot/perl@29498 --- diff --git a/ext/List/Util/Changes b/ext/List/Util/Changes index 65e93e4..74c0f85 100644 --- a/ext/List/Util/Changes +++ b/ext/List/Util/Changes @@ -1,3 +1,18 @@ +1.19 -- Sun Dec 10 09:58:03 CST 2006 + +Bug Fixes + * Fix invalid conversion from `const char*' to `char*' warnings + * Avoid Makefile error when building on Win32 + * Fix undefined symbol error for perl < 5.9.0 + * Fix hardcoded "/" in a filepath that causes p_tainted.t to fail on VMS + +Documentation + * Document that reduce calls BLOCK in a scalar context + * Add SEE ALSO sections to docs + +Enhancements + * A new regression test for readonly, taking a reference to a constant passed to a sub + 1.18 -- Fri Nov 25 09:30:29 CST 2005 Bug Fixes diff --git a/ext/List/Util/README b/ext/List/Util/README index e41de55..4fa789e 100644 --- a/ext/List/Util/README +++ b/ext/List/Util/README @@ -12,27 +12,12 @@ After unpacking the distribution, to install this module type make test make install -This distribution provides - - min - max - minstr - maxstr - sum - reduce - reftype - blessed - weaken (5.005_57 and later only) - isweak (5.005_57 and later only) - dualvar - shuffle - KNOWN BUGS There is a bug in perl5.6.0 with UV's that are >= 1<<31. This will show up as tests 8 and 9 of dualvar.t failing -Copyright (c) 1997-2005 Graham Barr . All rights reserved. +Copyright (c) 1997-2006 Graham Barr . All rights reserved. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. diff --git a/ext/List/Util/Util.xs b/ext/List/Util/Util.xs index 5f713a0..585225c 100644 --- a/ext/List/Util/Util.xs +++ b/ext/List/Util/Util.xs @@ -312,7 +312,7 @@ CODE: { dVAR; int index; -#if (PERL_VERSION < 8) || (PERL_VERSION == 8 && PERL_SUBVERSION <1) +#if (PERL_VERSION < 9) struct op dmy_op; struct op *old_op = PL_op; diff --git a/ext/List/Util/lib/List/Util.pm b/ext/List/Util/lib/List/Util.pm index cfe31f7..829148c 100644 --- a/ext/List/Util/lib/List/Util.pm +++ b/ext/List/Util/lib/List/Util.pm @@ -1,6 +1,6 @@ # List::Util.pm # -# Copyright (c) 1997-2005 Graham Barr . All rights reserved. +# Copyright (c) 1997-2006 Graham Barr . All rights reserved. # This program is free software; you can redistribute it and/or # modify it under the same terms as Perl itself. @@ -12,7 +12,7 @@ require Exporter; @ISA = qw(Exporter); @EXPORT_OK = qw(first min max minstr maxstr reduce sum shuffle); -$VERSION = "1.18"; +$VERSION = "1.19"; $XS_VERSION = $VERSION; $VERSION = eval $VERSION; @@ -197,11 +197,11 @@ This function could be implemented using C like this =item reduce BLOCK LIST -Reduces LIST by calling BLOCK multiple times, setting C<$a> and C<$b> -each time. The first call will be with C<$a> and C<$b> set to the first -two elements of the list, subsequent calls will be done by -setting C<$a> to the result of the previous call and C<$b> to the next -element in the list. +Reduces LIST by calling BLOCK, in a scalar context, multiple times, +setting C<$a> and C<$b> each time. The first call will be with C<$a> +and C<$b> set to the first two elements of the list, subsequent +calls will be done by setting C<$a> to the result of the previous +call and C<$b> to the next element in the list. Returns the result of the last call to BLOCK. If LIST is empty then C is returned. If LIST only contains one element then that @@ -268,9 +268,13 @@ to add due to them being very simple to implement in perl sub false { scalar grep { !$_ } @_ } +=head1 SEE ALSO + +L, L + =head1 COPYRIGHT -Copyright (c) 1997-2005 Graham Barr . All rights reserved. +Copyright (c) 1997-2006 Graham Barr . All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. diff --git a/ext/List/Util/lib/Scalar/Util.pm b/ext/List/Util/lib/Scalar/Util.pm index 4c34b8f..fedcb3b 100644 --- a/ext/List/Util/lib/Scalar/Util.pm +++ b/ext/List/Util/lib/Scalar/Util.pm @@ -1,6 +1,6 @@ # Scalar::Util.pm # -# Copyright (c) 1997-2005 Graham Barr . All rights reserved. +# Copyright (c) 1997-2006 Graham Barr . All rights reserved. # This program is free software; you can redistribute it and/or # modify it under the same terms as Perl itself. @@ -13,7 +13,7 @@ require List::Util; # List::Util loads the XS @ISA = qw(Exporter); @EXPORT_OK = qw(blessed dualvar reftype weaken isweak tainted readonly openhandle refaddr isvstring looks_like_number set_prototype); -$VERSION = "1.18"; +$VERSION = "1.19"; $VERSION = eval $VERSION; sub export_fail { @@ -315,9 +315,13 @@ be destroyed because there is now always a strong reference to them in the There is a bug in perl5.6.0 with UV's that are >= 1<<31. This will show up as tests 8 and 9 of dualvar.t failing +=head1 SEE ALSO + +L + =head1 COPYRIGHT -Copyright (c) 1997-2005 Graham Barr . All rights reserved. +Copyright (c) 1997-2006 Graham Barr . All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. diff --git a/ext/List/Util/multicall.h b/ext/List/Util/multicall.h index a27e9c7..935d7ed 100644 --- a/ext/List/Util/multicall.h +++ b/ext/List/Util/multicall.h @@ -160,7 +160,6 @@ multicall_pad_push(pTHX_ AV *padlist, int depth) POPSTACK; \ CATCH_SET(multicall_oldcatch); \ LEAVE; \ - SPAGAIN; \ } STMT_END #endif