Update to Scalar-List-Utils 1.05

p4raw-id: //depot/perl@11885

diff --git a/ext/List/Util/ChangeLog b/ext/List/Util/ChangeLog
index 4a4040f..3d2295b 100644 (file)
--- a/ext/List/Util/ChangeLog
+++ b/ext/List/Util/ChangeLog
@@ -1,3 +1,11 @@
+Change 641 on 2001/09/05 by <gbarr@pobox.com> (Graham Barr)
+
+       Fix shuffle() to compile with threaded perl
+
+Change 640 on 2001/09/05 by <gbarr@pobox.com> (Graham Barr)
+
+       Release 1.04
+
 Change 639 on 2001/09/05 by <gbarr@pobox.com> (Graham Barr)
 
        Fix context type (caused a core on Tru64)

diff --git a/ext/List/Util/README b/ext/List/Util/README
index 086af5e..2e5aba9 100644 (file)
--- a/ext/List/Util/README
+++ b/ext/List/Util/README
@@ -25,7 +25,8 @@ This distribution provides
   weaken   (5.005_57 and later only)
   isweak   (5.005_57 and later only)
   dualvar
+  shuffle
 
-Copyright (c) 1997-2000 Graham Barr <gbarr@pobox.com>. All rights reserved.
+Copyright (c) 1997-2001 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 86d0e66..c55fd00 100644 (file)
--- a/ext/List/Util/Util.xs
+++ b/ext/List/Util/Util.xs
@@ -276,7 +276,7 @@ CODE:
     dmy_op.op_targ = 1;
     PL_op = &dmy_op;
     PL_curpad = (SV **)&my_pad;
-    *(PL_ppaddr[OP_RAND])();
+    *(PL_ppaddr[OP_RAND])(aTHX);
     PL_op = old_op;
     PL_curpad = old_curpad;
     for (index = items ; index > 1 ; ) {

diff --git a/ext/List/Util/lib/List/Util.pm b/ext/List/Util/lib/List/Util.pm
index 70be647..b61e13c 100644 (file)
--- a/ext/List/Util/lib/List/Util.pm
+++ b/ext/List/Util/lib/List/Util.pm
@@ -11,7 +11,7 @@ require DynaLoader;
 
 our @ISA       = qw(Exporter DynaLoader);
 our @EXPORT_OK = qw(first min max minstr maxstr reduce sum shuffle);
-our $VERSION   = "1.04_00";
+our $VERSION   = "1.05_00";
 
 bootstrap List::Util $VERSION;