This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Change 27947 forgot to remove one now-unneeded cast.
authorNicholas Clark <nick@ccl4.org>
Mon, 24 Apr 2006 10:52:09 +0000 (10:52 +0000)
committerNicholas Clark <nick@ccl4.org>
Mon, 24 Apr 2006 10:52:09 +0000 (10:52 +0000)
p4raw-id: //depot/perl@27949

sv.c

diff --git a/sv.c b/sv.c
index b278656..899df93 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -2123,7 +2123,7 @@ S_sv_2iuv_common(pTHX_ SV *sv) {
     }
     else  {
        if (isGV_with_GP(sv))
-           return PTR2IV(glob_2number((GV *)sv));
+           return glob_2number((GV *)sv);
 
        if (!(SvFLAGS(sv) & SVs_PADTMP)) {
            if (!PL_localizing && ckWARN(WARN_UNINITIALIZED))