diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-03-04 19:33:31 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-03-04 19:33:31 +0100 |
| commit | f92e1a16ee2379315520131bbe3465eb837abfa3 (patch) | |
| tree | aeda5a6b2ab7b0a85d973673f08b8f337b07f223 /op.c | |
| parent | e74f3fd4b4b664f9ec8b6d9693d6a13bb6e50c49 (diff) | |
| download | perl-f92e1a16ee2379315520131bbe3465eb837abfa3.tar.gz | |
Make // behave like || in when clauses
(plus minor documentation updates about "when")
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -5183,6 +5183,7 @@ S_looks_like_bool(pTHX_ const OP *o) switch(o->op_type) { case OP_OR: + case OP_DOR: return looks_like_bool(cLOGOPo->op_first); case OP_AND: @@ -5198,7 +5199,6 @@ S_looks_like_bool(pTHX_ const OP *o) case OP_ENTERSUB: case OP_NOT: case OP_XOR: - /* Note that OP_DOR is not here */ case OP_EQ: case OP_NE: case OP_LT: case OP_GT: case OP_LE: case OP_GE: |