cvs commit: ponie/perl/ext/List/Util Util.xs
[email protected] (Nicholas Clark) 12 Apr 2005 10:30:00 -0000
| Newsgroups | perl.ponie.changes |
|---|---|
| Message-ID | <[email protected]> |
cvsuser 05/04/12 03:30:00
Modified: perl/ext/List/Util Util.xs
Log:
Assimilate 24229 from blead. Plus changes to op.c to cope with PERL_HASH
of SvUVX()
Revision Changes Path
1.3 +1 -1 ponie/perl/ext/List/Util/Util.xs
Index: Util.xs
===================================================================
RCS file: /cvs/public/ponie/perl/ext/List/Util/Util.xs,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- Util.xs 10 Apr 2005 04:17:50 -0000 1.2
+++ Util.xs 12 Apr 2005 10:29:59 -0000 1.3
@@ -358,7 +358,7 @@
}
#ifdef SVf_IVisUV
else if (SvUOK(num)) {
- SvUVX(ST(0)) = SvUV(num);
+ SvUV_set(ST(0), SvUV(num));
SvIOK_on(ST(0));
SvIsUV_on(ST(0));
}