X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pp_hot.c;h=d907570e4c2929b2b4240e414d2d39aa58e33d15;hb=5cfbcfcdc45b1cdd758241f7f02495ded7acc722;hp=c6a533b326265a703ee7a18cd1d35039504e837d;hpb=d8f2cf8a73241e835478961923f08341719a76ab;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/pp_hot.c b/pp_hot.c
index c6a533b..d907570 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -2939,7 +2939,7 @@ S_method_common(pTHX_ SV* meth, U32* hashp)
           HE* he;
 	  he = hv_fetch_ent(PL_stashcache, sv, 0, 0);
           if (he) { 
-            stash = (HV*)SvIV(HeVAL(he));
+            stash = INT2PTR(HV*,SvIV(HeVAL(he)));
             goto fetch;
           }
         }
@@ -2965,7 +2965,7 @@ S_method_common(pTHX_ SV* meth, U32* hashp)
 	    if (!stash)
 		packsv = sv;
             else {
-	        SV* ref = newSViv((IV)stash);
+	        SV* ref = newSViv(PTR2IV(stash));
 	        hv_store(PL_stashcache, packname, packlen, ref, 0);
 	    }
 	    goto fetch;