summaryrefslogtreecommitdiff
path: root/pp_ctl.c
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1999-05-24 04:23:10 +0000
committerGurusamy Sarathy <gsar@cpan.org>1999-05-24 04:23:10 +0000
commit538573f733f1f6e6430074c1bcabb095b33cf3c4 (patch)
tree40b349dbc900cd05505d26a95c8a6f923d349da7 /pp_ctl.c
parent5603f27d0c70bf36f089b5830eae87c6486f07bc (diff)
downloadperl-538573f733f1f6e6430074c1bcabb095b33cf3c4.tar.gz
straighten some code to avoid NeXT compiler bugs (from
Geoff Kuenning <geoff@cs.hmc.edu>) p4raw-id: //depot/perl@3452
Diffstat (limited to 'pp_ctl.c')
-rw-r--r--pp_ctl.c5
1 files changed, 4 insertions, 1 deletions
diff --git a/pp_ctl.c b/pp_ctl.c
index a61060aa2a..49db741f82 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -1026,7 +1026,10 @@ PP(pp_range)
{
if (GIMME == G_ARRAY)
return cCONDOP->op_true;
- return SvTRUEx(PAD_SV(PL_op->op_targ)) ? cCONDOP->op_false : cCONDOP->op_true;
+ if (SvTRUEx(PAD_SV(PL_op->op_targ)))
+ return cCONDOP->op_false;
+ else
+ return cCONDOP->op_true;
}
PP(pp_flip)