From: Philip M. Gollucci <pgollucci@p6m7g8.com>
Date: Mon, 18 Sep 2006 01:30:05 +0000 (-0700)
Subject: bleed -  silence warning in sv.c
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1d9c78c6de744b5c7eec4470968743afe4f03acd;p=p5sagit%2Fp5-mst-13.2.git

bleed -  silence warning in sv.c
From: "Philip M. Gollucci" <pgollucci@p6m7g8.com>
Message-ID: <450E590D.1060205@p6m7g8.com>

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

diff --git a/sv.c b/sv.c
index c82f2d6..6e395ef 100644
--- a/sv.c
+++ b/sv.c
@@ -3477,7 +3477,7 @@ Perl_sv_setsv_flags(pTHX_ SV *dstr, register SV *sstr, I32 flags)
     case SVt_PVBM:
 	if (SvGMAGICAL(sstr) && (flags & SV_GMAGIC)) {
 	    mg_get(sstr);
-	    if ((int)SvTYPE(sstr) != stype) {
+	    if (SvTYPE(sstr) != stype) {
 		stype = SvTYPE(sstr);
 		if (stype == SVt_PVGV && dtype <= SVt_PVGV) {
 		    glob_assign_glob(dstr, sstr, dtype);