From: Artur Bergman <sky@nanisky.com>
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;