Update List-Util to CPAN version 1.23_04smoke-me/list-util

  [DELTA]

  1.23_04 -- Sat Mar 10 00:16:16 UTC 2012

    * RT#72700 Fix off-by-two on string literal length

  1.23_03 -- Tue Sep 14 10:09:59 CDT 2010

    * Min perl version supported for build is not 5.008
    * Dropped the pure-Perl implementation of both Scalar::- and List::Util.
    * RT#61118 Fix assumption in sum() that once magic, always magic

  1.23_02 -- Tue Mar 30 11:09:15 CDT 2010

    * Fix first() and reduce() to check the callback first; &first(1) is now illigal. [gfx]
    * Fix reduce() to allow XSUB callbacks [gfx]
    * Fix first() to allow XSUB callbacks [gfx]
    * Resolve RT #55763: tainted() doesn't do SvGETMAGIC(sv) [gfx]
    * define CvISXSUB so older perl versions will still compile

  1.23_01 -- Mon Mar 22 08:24:11 CDT 2010

    * Add failing tests; SVt_RV is not directly SvROK [gfx]
    * Implement openhandle() in XS (with extra tests) [gfx]
    * Modernize *.pm [gfx]
    * Modernize ListUtil.xs [gfx]
    * Add ppport.h [gfx]
    * Fix an overloading issue on sum(), and add tests for overloading [gfx]
    * Small tweaks for minstr()/maxstr() [gfx]
    * Optimize dualvar() [gfx]
    * Use sv_copypv() instead of SvPV() and sv_setpv() [gfx]
    * avoid non-portable warnings

1 files changed, 8 insertions, 1 deletions

diff --git a/cpan/List-Util/t/reduce.t b/cpan/List-Util/t/reduce.t
index 2e1257521c..4468ab8611 100644
--- a/cpan/List-Util/t/reduce.t
+++ b/cpan/List-Util/t/reduce.t
@@ -16,7 +16,7 @@ BEGIN {
 
 use List::Util qw(reduce min);
 use Test::More;
-plan tests => 27 + ($::PERL_ONLY ? 0 : 2);
+plan tests => 29 + ($::PERL_ONLY ? 0 : 2);
 
 my $v = reduce {};
 
@@ -151,6 +151,13 @@ if (!$::PERL_ONLY) { SKIP: {
 
 } }
 
+# XSUB callback
+use constant XSUBC => 42;
+
+is reduce(\&XSUBC, 1, 2, 3), 42, "xsub callbacks";
+
+eval { &reduce(1) };
+ok($@ =~ /^Not a subroutine reference/, 'check for code reference');
 eval { &reduce(1,2) };
 ok($@ =~ /^Not a subroutine reference/, 'check for code reference');
 eval { &reduce(qw(a b)) };