From 1d9c78c6de744b5c7eec4470968743afe4f03acd Mon Sep 17 00:00:00 2001 From: "Philip M. Gollucci" Date: Sun, 17 Sep 2006 18:30:05 -0700 Subject: bleed - silence warning in sv.c From: "Philip M. Gollucci" Message-ID: <450E590D.1060205@p6m7g8.com> p4raw-id: //depot/perl@28865 --- sv.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'sv.c') diff --git a/sv.c b/sv.c index c82f2d67b8..6e395efed2 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); -- cgit v1.2.1