From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 10 Feb 2007 18:51:31 +0000 (+0000)
Subject: These casts to GV are no longer needed.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=81e3fc254f697a77f623afd4d35468dd9ca691c7;p=p5sagit%2Fp5-mst-13.2.git

These casts to GV are no longer needed.

p4raw-id: //depot/perl@30195
---

diff --git a/pp.c b/pp.c
index e1a45c1..04fab02 100644
--- 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;
 }