From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 27 Apr 2002 22:08:08 +0000 (+0000)
Subject: More VC5-induced casting found by Nikola Knezevic.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8a31060d0e98afa6004d194f5c17a527289cb541;p=p5sagit%2Fp5-mst-13.2.git

More VC5-induced casting found by Nikola Knezevic.

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

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);
 	    }
 	}
     }
diff --git a/hv.c b/hv.c
index 22b8cf2..919a5d5 100644
--- a/hv.c
+++ b/hv.c
@@ -1158,7 +1158,7 @@ Perl_hv_exists(pTHX_ HV *hv, const char *key, I32 klen)
 	    sv = sv_newmortal();
 	    mg_copy((SV*)hv, sv, key, klen);
 	    magic_existspack(sv, mg_find(sv, PERL_MAGIC_tiedelem));
-	    return SvTRUE(sv);
+	    return (bool)SvTRUE(sv);
 	}
 #ifdef ENV_IS_CASELESS
 	else if (mg_find((SV*)hv, PERL_MAGIC_env)) {
@@ -1262,7 +1262,7 @@ Perl_hv_exists_ent(pTHX_ HV *hv, SV *keysv, U32 hash)
 	    keysv = sv_2mortal(newSVsv(keysv));
 	    mg_copy((SV*)hv, sv, (char*)keysv, HEf_SVKEY);
 	   magic_existspack(svret, mg_find(sv, PERL_MAGIC_tiedelem));
-	   return SvTRUE(svret);
+	   return (bool)SvTRUE(svret);
 	}
 #ifdef ENV_IS_CASELESS
 	else if (mg_find((SV*)hv, PERL_MAGIC_env)) {
diff --git a/mg.c b/mg.c
index 80e9a54..f4843db 100644
--- a/mg.c
+++ b/mg.c
@@ -1959,7 +1959,7 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg)
 	    }
 	}
 	else if (strEQ(mg->mg_ptr+1, "IDE_SYSTEM_CALLS"))
-	    PL_widesyscalls = SvTRUE(sv);
+	    PL_widesyscalls = (bool)SvTRUE(sv);
 	break;
     case '.':
 	if (PL_localizing) {
diff --git a/sv.c b/sv.c
index 5da249f..f3940d9 100644
--- a/sv.c
+++ b/sv.c
@@ -3318,7 +3318,7 @@ Perl_sv_2bool(pTHX_ register SV *sv)
 	SV* tmpsv;
         if (SvAMAGIC(sv) && (tmpsv=AMG_CALLun(sv,bool_)) &&
                 (!SvROK(tmpsv) || (SvRV(tmpsv) != SvRV(sv))))
-	    return SvTRUE(tmpsv);
+	    return (bool)SvTRUE(tmpsv);
       return SvRV(sv) != 0;
     }
     if (SvPOKp(sv)) {