diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-15 06:57:50 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-15 06:57:50 +0000 |
| commit | 5f6c9cf6889fa160583354b7356c65dca499ec94 (patch) | |
| tree | 18e6a0b49a147c814d1b714c2697c43ba3036dbd /pp_ctl.c | |
| parent | eaa5c2d6b000dc65800ce9556fc9c01103860284 (diff) | |
| download | perl-5f6c9cf6889fa160583354b7356c65dca499ec94.tar.gz | |
typecast long vs. IV compares in pp_flip/pp_flop
p4raw-id: //depot/perl@1509
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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"); |