diff options
| author | Graham Barr <gbarr@pobox.com> | 1998-07-12 14:57:47 -0500 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-13 02:44:30 +0000 |
| commit | 8782bef2aa2ca158fdd0d7436e68ae3ac2b01ff7 (patch) | |
| tree | 5014b290517414faa6839abd622ed81e17116829 /op.c | |
| parent | c70c8a0a59777ed7fb7075471185210bc2169b49 (diff) | |
| download | perl-8782bef2aa2ca158fdd0d7436e68ae3ac2b01ff7.tar.gz | |
added patch, tweaked PERL_OBJECT things
Message-Id: <19980712195747.C493@pobox.com>
Subject: [ PATCH perl5.004_72] patch to add qr//
p4raw-id: //depot/perl@1461
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 10 |
1 files changed, 4 insertions, 6 deletions
@@ -619,6 +619,7 @@ op_free(OP *o) /* FALL THROUGH */ case OP_PUSHRE: case OP_MATCH: + case OP_QR: ReREFCNT_dec(cPMOPo->op_pmregexp); break; } @@ -725,6 +726,7 @@ scalar(OP *o) } /* FALL THROUGH */ case OP_MATCH: + case OP_QR: case OP_SUBST: case OP_NULL: default: @@ -983,6 +985,7 @@ list(OP *o) break; default: case OP_MATCH: + case OP_QR: case OP_SUBST: case OP_NULL: if (!(o->op_flags & OPf_KIDS)) @@ -1980,12 +1983,6 @@ newUNOP(I32 type, I32 flags, OP *first) unop->op_first = first; unop->op_flags = flags | OPf_KIDS; unop->op_private = 1 | (flags >> 8); -#if 1 - if(type == OP_STUDY && first->op_type == OP_MATCH) { - first->op_type = OP_PUSHRE; - first->op_ppaddr = ppaddr[OP_PUSHRE]; - } -#endif unop = (UNOP*) CHECKOP(type, unop); if (unop->op_next) return (OP*)unop; @@ -5031,6 +5028,7 @@ peep(register OP *o) peep(cLOOP->op_lastop); break; + case OP_QR: case OP_MATCH: case OP_SUBST: o->op_seq = op_seqmax++; |