Fix some small nits, thanks to Rafael.
Artur Bergman [Wed, 2 Apr 2003 18:01:40 +0000 (18:01 +0000)]
p4raw-id: //depot/perl@19134

pp_hot.c

index 3bc448d..553f001 100644 (file)
--- 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;