X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=op.c;h=76eb16f74e9ecc3e103bb6c99b86141ace531320;hb=b7e0327c3017c44f609566d81cb412798a1dad56;hp=775492319e6455d08af79d5b7a45b9e5da539792;hpb=aaf643cef9412894b3ea120d62ac78b85d183930;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/op.c b/op.c
index 7754923..76eb16f 100644
--- a/op.c
+++ b/op.c
@@ -562,6 +562,7 @@ Perl_op_clear(pTHX_ OP *o)
 	    o->op_targ = 0;
 	    goto retry;
 	}
+    case OP_ENTERTRY:
     case OP_ENTEREVAL:	/* Was holding hints. */
 	o->op_targ = 0;
 	break;
@@ -5281,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: