projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
5603f27
)
straighten some code to avoid NeXT compiler bugs (from
author
Gurusamy Sarathy
<gsar@cpan.org>
Mon, 24 May 1999 04:23:10 +0000
(
04:23
+0000)
committer
Gurusamy Sarathy
<gsar@cpan.org>
Mon, 24 May 1999 04:23:10 +0000
(
04:23
+0000)
Geoff Kuenning <geoff@cs.hmc.edu>)
p4raw-id: //depot/perl@3452
pp_ctl.c
patch
|
blob
|
history
diff --git
a/pp_ctl.c
b/pp_ctl.c
index
a61060a
..
49db741
100644
(file)
--- 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)