diff options
| author | josh <twists@gmail.com> | 2007-10-14 14:37:08 -0700 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-10-17 08:17:29 +0000 |
| commit | 1e1d4b91957a9f66bbb14b2c7f1bbf88c1f89cdf (patch) | |
| tree | ab06c1b94ecf038d0bb7b80ad7e53a8ece4b28a3 /op.c | |
| parent | a5a709ec819bfe84b1af6f781d5d87ef68e00c3a (diff) | |
| download | perl-1e1d4b91957a9f66bbb14b2c7f1bbf88c1f89cdf.tar.gz | |
Fix a few segfaults and a when() bug
From: "josh" <twists@gmail.com>
Message-ID: <20071015043708.GA10981@grenekatz.org>
p4raw-id: //depot/perl@32120
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 5 |
1 files changed, 5 insertions, 0 deletions
@@ -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: |