This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
pp_int should treat refs as UVs (not IVs)
authorJerry D. Hedden <jdhedden@cpan.org>
Thu, 11 Oct 2007 10:23:03 +0000 (06:23 -0400)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Thu, 11 Oct 2007 14:29:02 +0000 (14:29 +0000)
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510710110723p6cbed55fo558777258061b556@mail.gmail.com>

p4raw-id: //depot/perl@32100

pp.c

diff --git a/pp.c b/pp.c
index 3e22feb..d533738 100644 (file)
--- a/pp.c
+++ b/pp.c
@@ -2874,7 +2874,7 @@ PP(pp_int)
 {
     dVAR; dSP; dTARGET; tryAMAGICun(int);
     {
-      SV *sv = TOPs;
+      dTOPss;
       IV iv;
       /* XXX it's arguable that compiler casting to IV might be subtly
         different from modf (for numbers inside (IV_MIN,UV_MAX)) in which
@@ -2886,7 +2886,7 @@ PP(pp_int)
        if (!tsv)
            break;
        if (SvROK(tsv) && SvRV(tsv) == SvRV(sv)) {
-           SETi(PTR2IV(SvRV(sv)));
+           SETu(PTR2UV(SvRV(sv)));
            RETURN;
        }
        else
@@ -2904,7 +2904,7 @@ PP(pp_int)
            SETi(iv);
       }
       else if (SvROK(sv)) {
-           SETi(iv);
+           SETu(PTR2UV(SvRV(sv)));
       }
       else {
          const NV value = SvNV(sv);