X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=av.c;h=4d73e4094626c2876743416db00f14c67efbd61e;hb=912ec6395ccd8f957980c6c263fd9cff9e9bb2fa;hp=5d5964217877f96d46386429bf37ba265dc5dc64;hpb=eb160463266f58ba83ae9bb9ae8bbdc8f0c3027b;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/av.c b/av.c
index 5d59642..4d73e40 100644
--- a/av.c
+++ b/av.c
@@ -823,7 +823,7 @@ Perl_av_exists(pTHX_ AV *av, I32 key)
 	    mg = mg_find(sv, PERL_MAGIC_tiedelem);
 	    if (mg) {
 		magic_existspack(sv, mg);
-		return SvTRUE(sv);
+		return (bool)SvTRUE(sv);
 	    }
 	}
     }