From bd1e762a8ed1aa90a48d6e6d1207bfeab5a8092e Mon Sep 17 00:00:00 2001 From: Graham Barr Date: Thu, 12 Dec 2002 09:23:04 +0000 Subject: [PATCH] Update to Scalar-List-Utils 1.09 p4raw-id: //depot/perl@18292 --- ext/List/Util/ChangeLog | 8 ++++++++ ext/List/Util/Util.xs | 4 ++-- ext/List/Util/lib/List/Util.pm | 2 +- 3 files changed, 11 insertions(+), 3 deletions(-) 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 (Graham Barr) + + Release 1.09 + +Change 758 on 2002/12/12 by (Graham Barr) + + Use UV to return refaddr + Change 757 on 2002/11/03 by (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; -- 2.7.4