diff options
| author | Robin Houston <robin@cpan.org> | 2001-12-06 14:44:01 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-06 15:08:40 +0000 |
| commit | 5cc9e5c9d4584574ed7c24896215a21bdd0fd4b2 (patch) | |
| tree | e1c087614ad4ca2c85a89f881f831fe0ffcdcfc8 /op.c | |
| parent | 3fcc9feac9b4526c9e0fb8c6850f10447473b930 (diff) | |
| download | perl-5cc9e5c9d4584574ed7c24896215a21bdd0fd4b2.tar.gz | |
Re: weirdness in regexps
Message-ID: <20011206144401.A27752@puffinry.freeserve.co.uk>
p4raw-id: //depot/perl@13490
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 7 |
1 files changed, 7 insertions, 0 deletions
@@ -2053,6 +2053,13 @@ Perl_bind_match(pTHX_ I32 type, OP *left, OP *right) desc, sample, sample); } + if (right->op_type == OP_CONST && + cSVOPx(right)->op_private & OPpCONST_BARE && + cSVOPx(right)->op_private & OPpCONST_STRICT) + { + no_bareword_allowed(right); + } + if (!(right->op_flags & OPf_STACKED) && (right->op_type == OP_MATCH || right->op_type == OP_SUBST || |