Change 14245 by jhi@alpha on 2002/01/13 19:19:59
Upgrade to Scalar-List-Util 1.06. The Makefile.PLs
have diverged quite a bit so no updates there.
Affected files ...
.... //depot/perl/ext/List/Util/ChangeLog#5 edit
.... //depot/perl/ext/List/Util/Util.xs#13 edit
.... //depot/perl/ext/List/Util/lib/List/Util.pm#8 edit
.... //depot/perl/ext/List/Util/lib/Scalar/Util.pm#6 edit
Differences ...
==== //depot/perl/ext/List/Util/ChangeLog#5 (text) ====
Index: perl/ext/List/Util/ChangeLog
--- perl/ext/List/Util/ChangeLog.~1~ Sun Jan 13 12:30:05 2002
+++ perl/ext/List/Util/ChangeLog Sun Jan 13 12:30:05 2002
@@ -1,3 +1,23 @@
+Change 645 on 2001/09/07 by <[EMAIL PROTECTED]> (Graham Barr)
+
+ Some platforms require the main executable to export symbols
+ needed by modules. In 5.7.2 and prior releases of perl
+ Perl_cxinc was not exported so we need to duplicate its
+ functionality
+
+Change 644 on 2001/09/07 by <[EMAIL PROTECTED]> (Graham Barr)
+
+ Generate a typemap for NV for all perl version up to and
+ including 5.006
+
+Change 643 on 2001/09/07 by <[EMAIL PROTECTED]> (Graham Barr)
+
+ Document problems known with specific versions of perl
+
+Change 642 on 2001/09/05 by <[EMAIL PROTECTED]> (Graham Barr)
+
+ Release 1.05
+
Change 641 on 2001/09/05 by <[EMAIL PROTECTED]> (Graham Barr)
Fix shuffle() to compile with threaded perl
==== //depot/perl/ext/List/Util/Util.xs#13 (text) ====
Index: perl/ext/List/Util/Util.xs
--- perl/ext/List/Util/Util.xs.~1~ Sun Jan 13 12:30:05 2002
+++ perl/ext/List/Util/Util.xs Sun Jan 13 12:30:05 2002
@@ -16,6 +16,27 @@
#ifndef aTHX
# define aTHX
+# define pTHX
+#endif
+
+/* Some platforms have strict exports. And before 5.7.3 cxinc (or Perl_cxinc)
+ was not exported. Therefore platforms like win32, VMS etc have problems
+ so we redefine it here -- GMB
+*/
+#if PERL_VERSION < 7
+/* Not in 5.6.1. */
+# define SvUOK(sv) SvIOK_UV(sv)
+# ifdef cxinc
+# undef cxinc
+# endif
+# define cxinc() my_cxinc(aTHX)
+static I32
+my_cxinc(pTHX)
+{
+ cxstack_max = cxstack_max * 3 / 2;
+ Renew(cxstack, cxstack_max + 1, struct context); /* XXX should fix CXINC
+macro */
+ return cxstack_ix + 1;
+}
#endif
#if PERL_VERSION < 6
==== //depot/perl/ext/List/Util/lib/List/Util.pm#8 (text) ====
Index: perl/ext/List/Util/lib/List/Util.pm
--- perl/ext/List/Util/lib/List/Util.pm.~1~ Sun Jan 13 12:30:05 2002
+++ perl/ext/List/Util/lib/List/Util.pm Sun Jan 13 12:30:05 2002
@@ -11,7 +11,7 @@
our @ISA = qw(Exporter DynaLoader);
our @EXPORT_OK = qw(first min max minstr maxstr reduce sum shuffle);
-our $VERSION = "1.05_00";
+our $VERSION = "1.06_00";
bootstrap List::Util $VERSION;
@@ -148,6 +148,12 @@
=back
+=head1 KNOWN BUGS
+
+With perl versions prior to 5.005 there are some cases where reduce
+will return an incorrect result. This will show up as test 7 of
+reduce.t failing.
+
=head1 SUGGESTED ADDITIONS
The following are additions that have been requested, but I have been reluctant
==== //depot/perl/ext/List/Util/lib/Scalar/Util.pm#6 (text) ====
Index: perl/ext/List/Util/lib/Scalar/Util.pm
--- perl/ext/List/Util/lib/Scalar/Util.pm.~1~ Sun Jan 13 12:30:05 2002
+++ perl/ext/List/Util/lib/Scalar/Util.pm Sun Jan 13 12:30:05 2002
@@ -115,6 +115,11 @@
=back
+=head1 KNOWN BUGS
+
+There is a bug in perl5.6.0 with UV's that are >= 1<<31. This will
+show up as tests 8 and 9 of dualvar.t failing
+
=head1 COPYRIGHT
Copyright (c) 1997-2001 Graham Barr <[EMAIL PROTECTED]>. All rights reserved.
End of Patch.
