From: Gurusamy Sarathy <gsar@cpan.org>
Date: Wed, 15 Jul 1998 06:57:50 +0000 (+0000)
Subject: typecast long vs. IV compares in pp_flip/pp_flop
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5f6c9cf6889fa160583354b7356c65dca499ec94;p=p5sagit%2Fp5-mst-13.2.git

typecast long vs. IV compares in pp_flip/pp_flop

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

diff --git a/pp_ctl.c b/pp_ctl.c
index 6d752d2..c781870 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -804,7 +804,7 @@ PP(pp_flip)
 	SV *targ = PAD_SV(op->op_targ);
 
 	if ((op->op_private & OPpFLIP_LINENUM)
-	  ? last_in_gv && SvIV(sv) == IoLINES(GvIOp(last_in_gv))
+	  ? (last_in_gv && SvIV(sv) == (IV)IoLINES(GvIOp(last_in_gv)))
 	  : SvTRUE(sv) ) {
 	    sv_setiv(PAD_SV(cUNOP->op_first->op_targ), 1);
 	    if (op->op_flags & OPf_SPECIAL) {
@@ -870,7 +870,7 @@ PP(pp_flop)
 	SV *targ = PAD_SV(cUNOP->op_first->op_targ);
 	sv_inc(targ);
 	if ((op->op_private & OPpFLIP_LINENUM)
-	  ? last_in_gv && SvIV(sv) == IoLINES(GvIOp(last_in_gv))
+	  ? (last_in_gv && SvIV(sv) == (IV)IoLINES(GvIOp(last_in_gv)))
 	  : SvTRUE(sv) ) {
 	    sv_setiv(PAD_SV(((UNOP*)cUNOP->op_first)->op_first->op_targ), 0);
 	    sv_catpv(targ, "E0");