Change 11885 by gbarr@monty on 2001/09/05 15:26:18
Update to Scalar-List-Utils 1.05
Affected files ...
... //depot/perl/ext/List/Util/ChangeLog#4 edit
... //depot/perl/ext/List/Util/README#2 edit
... //depot/perl/ext/List/Util/Util.xs#11 edit
... //depot/perl/ext/List/Util/lib/List/Util.pm#7 edit
Differences ...
==== //depot/perl/ext/List/Util/ChangeLog#4 (text) ====
Index: perl/ext/List/Util/ChangeLog
--- perl/ext/List/Util/ChangeLog.~1~ Wed Sep 5 09:30:05 2001
+++ perl/ext/List/Util/ChangeLog Wed Sep 5 09:30:05 2001
@@ -1,3 +1,11 @@
+Change 641 on 2001/09/05 by <[EMAIL PROTECTED]> (Graham Barr)
+
+ Fix shuffle() to compile with threaded perl
+
+Change 640 on 2001/09/05 by <[EMAIL PROTECTED]> (Graham Barr)
+
+ Release 1.04
+
Change 639 on 2001/09/05 by <[EMAIL PROTECTED]> (Graham Barr)
Fix context type (caused a core on Tru64)
==== //depot/perl/ext/List/Util/README#2 (text) ====
Index: perl/ext/List/Util/README
--- perl/ext/List/Util/README.~1~ Wed Sep 5 09:30:05 2001
+++ perl/ext/List/Util/README Wed Sep 5 09:30:05 2001
@@ -25,7 +25,8 @@
weaken (5.005_57 and later only)
isweak (5.005_57 and later only)
dualvar
+ shuffle
-Copyright (c) 1997-2000 Graham Barr <[EMAIL PROTECTED]>. All rights reserved.
+Copyright (c) 1997-2001 Graham Barr <[EMAIL PROTECTED]>. All rights reserved.
This library is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
==== //depot/perl/ext/List/Util/Util.xs#11 (text) ====
Index: perl/ext/List/Util/Util.xs
--- perl/ext/List/Util/Util.xs.~1~ Wed Sep 5 09:30:05 2001
+++ perl/ext/List/Util/Util.xs Wed Sep 5 09:30:05 2001
@@ -276,7 +276,7 @@
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 ; ) {
==== //depot/perl/ext/List/Util/lib/List/Util.pm#7 (text) ====
Index: perl/ext/List/Util/lib/List/Util.pm
--- perl/ext/List/Util/lib/List/Util.pm.~1~ Wed Sep 5 09:30:05 2001
+++ perl/ext/List/Util/lib/List/Util.pm Wed Sep 5 09:30:05 2001
@@ -11,7 +11,7 @@
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;
End of Patch.
