diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-02-12 12:40:17 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-02-12 12:40:17 +0000 |
| commit | bf4b1e527fdf3e0133164c452edf2a3c4cdc8b41 (patch) | |
| tree | 7ab975037fcd65d70d1d7c6b486996741e01b2e3 /op.c | |
| parent | ac5c734f32ccd9787762253192de0d559609abae (diff) | |
| download | perl-bf4b1e527fdf3e0133164c452edf2a3c4cdc8b41.tar.gz | |
allow boolean assign ops to be lvalues
From: Stephen McCamant <smccam@uclink4.berkeley.edu>
Date: Mon, 11 Jan 1999 16:52:18 -0600 (CST)
Message-ID: <13978.32609.495338.544643@alias-2.pr.mcs.net>
--
From: Hugo van der Sanden <hv@crypt.compulink.co.uk>
Date: Mon, 18 Jan 1999 10:04:00 +0000
Message-Id: <199901181004.KAA17471@crypt.compulink.co.uk>
Subject: Re: [inconsistency 5.005_54] ||= not an lvalue
p4raw-id: //depot/perl@2901
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -1250,6 +1250,8 @@ mod(OP *o, I32 type) case OP_AV2ARYLEN: PL_hints |= HINT_BLOCK_SCOPE; case OP_SASSIGN: + case OP_ANDASSIGN: + case OP_ORASSIGN: case OP_AELEMFAST: PL_modcount++; break; @@ -1380,8 +1382,8 @@ scalar_mod_type(OP *o, I32 type) case OP_READ: case OP_SYSREAD: case OP_RECV: - case OP_ANDASSIGN: /* may work later */ - case OP_ORASSIGN: /* may work later */ + case OP_ANDASSIGN: + case OP_ORASSIGN: return TRUE; default: return FALSE; |