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 (file)
--- 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 (file)
--- 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 <gbarr@pobox.com>. All rights reserved.
+Copyright (c) 1997-2006 Graham Barr <gbarr@pobox.com>. 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 (file)
--- 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 (file)
--- 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 <gbarr@pobox.com>. All rights reserved.
+# Copyright (c) 1997-2006 Graham Barr <gbarr@pobox.com>. 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<reduce> 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<undef> 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<Scalar::Util>, L<List::MoreUtils>
+
 =head1 COPYRIGHT
 
-Copyright (c) 1997-2005 Graham Barr <gbarr@pobox.com>. All rights reserved.
+Copyright (c) 1997-2006 Graham Barr <gbarr@pobox.com>. 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 (file)
--- 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 <gbarr@pobox.com>. All rights reserved.
+# Copyright (c) 1997-2006 Graham Barr <gbarr@pobox.com>. 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<List::Util>
+
 =head1 COPYRIGHT
 
-Copyright (c) 1997-2005 Graham Barr <gbarr@pobox.com>. All rights reserved.
+Copyright (c) 1997-2006 Graham Barr <gbarr@pobox.com>. 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 (file)
--- 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