diff options
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/List/Util/ChangeLog | 8 | ||||
| -rw-r--r-- | ext/List/Util/README | 3 | ||||
| -rw-r--r-- | ext/List/Util/Util.xs | 2 | ||||
| -rw-r--r-- | ext/List/Util/lib/List/Util.pm | 2 |
4 files changed, 12 insertions, 3 deletions
diff --git a/ext/List/Util/ChangeLog b/ext/List/Util/ChangeLog index 4a4040f764..3d2295b4ae 100644 --- 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 086af5e64d..2e5aba9095 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 <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 86d0e663bb..c55fd00358 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 70be6472bc..b61e13c28e 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; |