From: Artur Bergman Date: Wed, 2 Apr 2003 18:01:40 +0000 (+0000) Subject: Fix some small nits, thanks to Rafael. X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=05f5af9aed1b243131a469af567639a4a449cc7f;p=p5sagit%2Fp5-mst-13.2.git Fix some small nits, thanks to Rafael. p4raw-id: //depot/perl@19134 --- diff --git a/pp_hot.c b/pp_hot.c index 3bc448d..553f001 100644 --- a/pp_hot.c +++ b/pp_hot.c @@ -2930,13 +2930,13 @@ S_method_common(pTHX_ SV* meth, U32* hashp) if(SvOK(sv) && (packname = SvPV(sv, packlen))) { HE* he = hv_fetch_ent(PL_stashcache, sv, 0, 0); if (he) { - stash = HeVAL(he); + stash = (HV*)HeVAL(he); goto fetch; } } if (!SvOK(sv) || - !(packname = SvPV(sv, packlen)) || + !(packname) || !(iogv = gv_fetchpv(packname, FALSE, SVt_PVIO)) || !(ob=(SV*)GvIO(iogv))) { @@ -2957,7 +2957,7 @@ S_method_common(pTHX_ SV* meth, U32* hashp) packsv = sv; else { SvREFCNT_inc((SV*)stash); - if(!hv_store(PL_stashcache, packname, packlen, stash, 0)) + if(!hv_store(PL_stashcache, packname, packlen, (SV*)stash, 0)) SvREFCNT_dec((SV*)stash); } goto fetch;