From: Graham Barr <gbarr@pobox.com>
Date: Thu, 12 Dec 2002 09:23:04 +0000 (+0000)
Subject: Update to Scalar-List-Utils 1.09
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bd1e762a8ed1aa90a48d6e6d1207bfeab5a8092e;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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
--- 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;