This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Update to Scalar-List-Utils 1.05
authorGraham Barr <gbarr@pobox.com>
Wed, 5 Sep 2001 15:26:18 +0000 (15:26 +0000)
committerGraham Barr <gbarr@pobox.com>
Wed, 5 Sep 2001 15:26:18 +0000 (15:26 +0000)
p4raw-id: //depot/perl@11885

ext/List/Util/ChangeLog
ext/List/Util/README
ext/List/Util/Util.xs
ext/List/Util/lib/List/Util.pm

index 4a4040f..3d2295b 100644 (file)
@@ -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)
index 086af5e..2e5aba9 100644 (file)
@@ -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.
index 86d0e66..c55fd00 100644 (file)
@@ -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 ; ) {
index 70be647..b61e13c 100644 (file)
@@ -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;