X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=universal.c;h=67f96c381bbd17fbf2e60f0f0589693bf8192280;hb=e17cb2a9c513ce1acd034452f9a933fcfa6c0129;hp=9a867631d0cd30242b3e84e68b21278170d81ef4;hpb=8ac853655d9b744749adcb9687c13d99cdd6e9fb;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/universal.c b/universal.c
index 9a86763..67f96c3 100644
--- a/universal.c
+++ b/universal.c
@@ -48,7 +48,8 @@ isa_lookup(HV *stash, char *name, int len, int level)
 	}
 	if(hv) {
 	    SV** svp = AvARRAY(av);
-	    I32 items = AvFILL(av) + 1;
+	    /* NOTE: No support for tied ISA */
+	    I32 items = AvFILLp(av) + 1;
 	    while (items--) {
 		SV* sv = *svp++;
 		HV* basestash = gv_stashsv(sv, FALSE);