From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Sat, 21 Apr 2007 09:06:38 +0000 (+0000)
Subject: Small optimisations, by Brandon Black
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=640da897d5acac197d270d816dc0d8bad1c1cedb;p=p5sagit%2Fp5-mst-13.2.git

Small optimisations, by Brandon Black

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

diff --git a/mro.c b/mro.c
index 7cbaca8..d860c33 100644
--- a/mro.c
+++ b/mro.c
@@ -138,7 +138,7 @@ Perl_mro_get_linear_isa_dfs(pTHX_ HV *stash, I32 level)
     gvp = (GV**)hv_fetchs(stash, "ISA", FALSE);
     av = (gvp && (gv = *gvp) && isGV_with_GP(gv)) ? GvAV(gv) : NULL;
 
-    if(av) {
+    if(av && AvFILLp(av) >= 0) {
 
         /* "stored" is used to keep track of all of the classnames
            we have added to the MRO so far, so we can do a quick
@@ -673,7 +673,7 @@ __nextcan(pTHX_ SV* self, I32 throw_nomethod)
     }
 
     /* Use the cached coderef if it exists */
-    if((cache_entry = hv_fetch_ent(nmcache, sv, 0, 0))) {
+    else if((cache_entry = hv_fetch_ent(nmcache, sv, 0, 0))) {
         SV* val = HeVAL(cache_entry);
         if(val == &PL_sv_undef) {
             if(throw_nomethod)