Fix when( scalar ... ) bug

looks_like_bool should look past scalar(). Prior to this fix, saying
scalar() caused the when() argument to be /not/ a boolean even if it
reasonably was. Perhaps something like: when( scalar /$re/ ). I don't
know any natural way someone is doing to use when(scalar ...) but it
certainly seems like it was mistakenly left out.

1 files changed, 4 insertions, 0 deletions

diff --git a/op.c b/op.c
index 729c25f0aa..c3736fac0b 100644
--- a/op.c
+++ b/op.c
@@ -5194,6 +5194,10 @@ S_looks_like_bool(pTHX_ const OP *o)
 		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: