Change 18296 by jhi@lyta on 2002/12/12 18:21:12
Integrate:
[ 18292]
Update to Scalar-List-Utils 1.09
Affected files ...
... //depot/maint-5.8/perl/ext/List/Util/ChangeLog#3 integrate
... //depot/maint-5.8/perl/ext/List/Util/Util.xs#3 integrate
... //depot/maint-5.8/perl/ext/List/Util/lib/List/Util.pm#3 integrate
Differences ...
==== //depot/maint-5.8/perl/ext/List/Util/ChangeLog#3 (text) ====
Index: perl/ext/List/Util/ChangeLog
--- perl/ext/List/Util/ChangeLog#2~18080~ Sun Nov 3 21:23:04 2002
+++ perl/ext/List/Util/ChangeLog Thu Dec 12 10:21:12 2002
@@ -1,3 +1,11 @@
+Change 759 on 2002/12/12 by <[EMAIL PROTECTED]> (Graham Barr)
+
+ Release 1.09
+
+Change 758 on 2002/12/12 by <[EMAIL PROTECTED]> (Graham Barr)
+
+ Use UV to return refaddr
+
Change 757 on 2002/11/03 by <[EMAIL PROTECTED]> (Graham Barr)
Add XS_VERSION
==== //depot/maint-5.8/perl/ext/List/Util/Util.xs#3 (text) ====
Index: perl/ext/List/Util/Util.xs
--- perl/ext/List/Util/Util.xs#2~18080~ Sun Nov 3 21:23:04 2002
+++ perl/ext/List/Util/Util.xs Thu Dec 12 10:21:12 2002
@@ -398,7 +398,7 @@
OUTPUT:
RETVAL
-IV
+UV
refaddr(sv)
SV * sv
PROTOTYPE: $
@@ -407,7 +407,7 @@
if(!SvROK(sv)) {
XSRETURN_UNDEF;
}
- RETVAL = PTR2IV(SvRV(sv));
+ RETVAL = PTR2UV(SvRV(sv));
}
OUTPUT:
RETVAL
==== //depot/maint-5.8/perl/ext/List/Util/lib/List/Util.pm#3 (text) ====
Index: perl/ext/List/Util/lib/List/Util.pm
--- perl/ext/List/Util/lib/List/Util.pm#2~18080~ Sun Nov 3 21:23:04 2002
+++ perl/ext/List/Util/lib/List/Util.pm Thu Dec 12 10:21:12 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.08_00";
+our $VERSION = "1.09_00";
our $XS_VERSION = $VERSION;
$VERSION = eval $VERSION;
End of Patch.
