Change 18292 by gbarr@monty on 2002/12/12 09:23:04
Update to Scalar-List-Utils 1.09
Affected files ...
... //depot/perl/ext/List/Util/ChangeLog#8 edit
... //depot/perl/ext/List/Util/Util.xs#16 edit
... //depot/perl/ext/List/Util/lib/List/Util.pm#12 edit
Differences ...
==== //depot/perl/ext/List/Util/ChangeLog#8 (text) ====
Index: perl/ext/List/Util/ChangeLog
--- perl/ext/List/Util/ChangeLog#7~18076~ Sun Nov 3 02:11:18 2002
+++ perl/ext/List/Util/ChangeLog Thu Dec 12 01:23:04 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/perl/ext/List/Util/Util.xs#16 (text) ====
Index: perl/ext/List/Util/Util.xs
--- perl/ext/List/Util/Util.xs#15~18076~ Sun Nov 3 02:11:18 2002
+++ perl/ext/List/Util/Util.xs Thu Dec 12 01:23:04 2002
@@ -402,7 +402,7 @@
OUTPUT:
RETVAL
-IV
+UV
refaddr(sv)
SV * sv
PROTOTYPE: $
@@ -411,7 +411,7 @@
if(!SvROK(sv)) {
XSRETURN_UNDEF;
}
- RETVAL = PTR2IV(SvRV(sv));
+ RETVAL = PTR2UV(SvRV(sv));
}
OUTPUT:
RETVAL
==== //depot/perl/ext/List/Util/lib/List/Util.pm#12 (text) ====
Index: perl/ext/List/Util/lib/List/Util.pm
--- perl/ext/List/Util/lib/List/Util.pm#11~18076~ Sun Nov 3 02:11:18 2002
+++ perl/ext/List/Util/lib/List/Util.pm Thu Dec 12 01:23:04 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.
