diff options
author | Gurusamy Sarathy <gsar@cpan.org> | 1999-05-24 04:23:10 +0000 |
---|---|---|
committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-05-24 04:23:10 +0000 |
commit | 538573f733f1f6e6430074c1bcabb095b33cf3c4 (patch) | |
tree | 40b349dbc900cd05505d26a95c8a6f923d349da7 /pp_ctl.c | |
parent | 5603f27d0c70bf36f089b5830eae87c6486f07bc (diff) | |
download | perl-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.c | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -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) |