From: Graham Barr Date: Wed, 5 Sep 2001 15:26:18 +0000 (+0000) Subject: Update to Scalar-List-Utils 1.05 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=163827e71a45f738793d4b8b78994eb0be5ecfa0;p=p5sagit%2Fp5-mst-13.2.git 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 --- a/ext/List/Util/ChangeLog +++ b/ext/List/Util/ChangeLog @@ -1,3 +1,11 @@ +Change 641 on 2001/09/05 by (Graham Barr) + + Fix shuffle() to compile with threaded perl + +Change 640 on 2001/09/05 by (Graham Barr) + + Release 1.04 + Change 639 on 2001/09/05 by (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 --- 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 . All rights reserved. +Copyright (c) 1997-2001 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 86d0e66..c55fd00 100644 --- 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 --- 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;