diff options
-rw-r--r-- | sv.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -694,7 +694,7 @@ sv_upgrade(register SV *sv, U32 mt) cur = 0; len = 0; nv = SvNVX(sv); - iv = (IV)nv; + iv = I_V(nv); magic = 0; stash = 0; del_XNV(SvANY(sv)); |
![]() |
index : delta/perl.git | |
github.com: perl/perl5.git |
summaryrefslogtreecommitdiff |
-rw-r--r-- | sv.c | 2 |
@@ -694,7 +694,7 @@ sv_upgrade(register SV *sv, U32 mt) cur = 0; len = 0; nv = SvNVX(sv); - iv = (IV)nv; + iv = I_V(nv); magic = 0; stash = 0; del_XNV(SvANY(sv)); |