This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
These casts to GV are no longer needed.
authorNicholas Clark <nick@ccl4.org>
Sat, 10 Feb 2007 18:51:31 +0000 (18:51 +0000)
committerNicholas Clark <nick@ccl4.org>
Sat, 10 Feb 2007 18:51:31 +0000 (18:51 +0000)
p4raw-id: //depot/perl@30195

pp.c

diff --git a/pp.c b/pp.c
index e1a45c1..04fab02 100644 (file)
--- a/pp.c
+++ b/pp.c
@@ -251,17 +251,17 @@ Perl_softref2xv(pTHX_ SV *const sv, const char *const what, const U32 type,
     if ((PL_op->op_flags & OPf_SPECIAL) &&
        !(PL_op->op_flags & OPf_MOD))
        {
-           gv = (GV*)gv_fetchsv(sv, 0, type);
+           gv = gv_fetchsv(sv, 0, type);
            if (!gv
                && (!is_gv_magical_sv(sv,0)
-                   || !(gv = (GV*)gv_fetchsv(sv, GV_ADD, type))))
+                   || !(gv = gv_fetchsv(sv, GV_ADD, type))))
                {
                    **spp = &PL_sv_undef;
                    return NULL;
                }
        }
     else {
-       gv = (GV*)gv_fetchsv(sv, GV_ADD, type);
+       gv = gv_fetchsv(sv, GV_ADD, type);
     }
     return gv;
 }