Update to Scalar-List-Utils 1.09

p4raw-id: //depot/perl@18292

diff --git a/ext/List/Util/ChangeLog b/ext/List/Util/ChangeLog
index 89e33e9..eef0491 100644 (file)
--- a/ext/List/Util/ChangeLog
+++ b/ext/List/Util/ChangeLog
@@ -1,3 +1,11 @@
+Change 759 on 2002/12/12 by <gbarr@pobox.com> (Graham Barr)
+
+       Release 1.09
+
+Change 758 on 2002/12/12 by <gbarr@pobox.com> (Graham Barr)
+
+       Use UV to return refaddr
+
 Change 757 on 2002/11/03 by <gbarr@pobox.com> (Graham Barr)
 
        Add XS_VERSION

diff --git a/ext/List/Util/Util.xs b/ext/List/Util/Util.xs
index 0b080c5..f96b451 100644 (file)
--- a/ext/List/Util/Util.xs
+++ b/ext/List/Util/Util.xs
@@ -402,7 +402,7 @@ CODE:
 OUTPUT:
     RETVAL
 
-IV
+UV
 refaddr(sv)
     SV * sv
 PROTOTYPE: $
@@ -411,7 +411,7 @@ CODE:
     if(!SvROK(sv)) {
        XSRETURN_UNDEF;
     }
-    RETVAL = PTR2IV(SvRV(sv));
+    RETVAL = PTR2UV(SvRV(sv));
 }
 OUTPUT:
     RETVAL

diff --git a/ext/List/Util/lib/List/Util.pm b/ext/List/Util/lib/List/Util.pm
index 8975b10..87b7e6c 100644 (file)
--- 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.08_00";
+our $VERSION    = "1.09_00";
 our $XS_VERSION = $VERSION;
 $VERSION    = eval $VERSION;