1 files changed, 5 insertions, 0 deletions
diff --git a/op.c b/op.c
index 32e2a546c7..c16c111ee4 100644
--- a/op.c
+++ b/op.c
@@ -4937,6 +4937,11 @@ S_looks_like_bool(pTHX_ const OP *o)
 	    	looks_like_bool(cLOGOPo->op_first)
 	     && looks_like_bool(cLOGOPo->op_first->op_sibling));
 
+	case OP_NULL:
+	    return (
+		o->op_flags & OPf_KIDS
+	    && looks_like_bool(cUNOPo->op_first));
+
 	case OP_ENTERSUB:
 
 	case OP_NOT:	case OP_XOR: