diff options
author | Rafael Garcia-Suarez <rgs@consttype.org> | 2010-04-09 12:25:54 +0200 |
---|---|---|
committer | Jesse Vincent <jesse@bestpractical.com> | 2010-05-08 17:40:12 -0400 |
commit | 55ce261c3611453a51e365b59ff693fc330f4c5d (patch) | |
tree | 2bf86a44ce7f33b3dfb1484b651ad736a8085715 | |
parent | 6daa92fd3bab897011f098c559e29da4d873978a (diff) | |
download | perl-55ce261c3611453a51e365b59ff693fc330f4c5d.tar.gz |
when(scalar) without argument should be a syntax error [perl #74114]
-rw-r--r-- | op.c | 5 |
1 files changed, 1 insertions, 4 deletions
@@ -5282,14 +5282,11 @@ S_looks_like_bool(pTHX_ const OP *o) && looks_like_bool(cLOGOPo->op_first->op_sibling)); case OP_NULL: + case OP_SCALAR: return ( o->op_flags & OPf_KIDS && looks_like_bool(cUNOPo->op_first)); - case OP_SCALAR: - return looks_like_bool(cUNOPo->op_first); - - case OP_ENTERSUB: case OP_NOT: case OP_XOR: |