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.