diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1998-06-10 07:38:58 -0400 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-06-11 06:31:34 +0000 |
| commit | f9277f475182e73cbf77386678e16ed5037ab2bb (patch) | |
| tree | 52c89950787fc2efba1fc5b99fb424f2016b77d5 /pp.c | |
| parent | fe3a57c48184a9845c839ae6b3f32fa30660f388 (diff) | |
| download | perl-f9277f475182e73cbf77386678e16ed5037ab2bb.tar.gz | |
back out change#1111 and add alternative patch:
Message-Id: <199806101538.LAA07293@monk.mps.ohio-state.edu>
Subject: Re: PATCH for study/foo/
p4raw-link: @1111 on //depot/perl: 20e9db593ef4f0b3ec4e4dbedd03ab5782525eaf
p4raw-id: //depot/perl@1114
Diffstat (limited to 'pp.c')
| -rw-r--r-- | pp.c | 5 |
1 files changed, 1 insertions, 4 deletions
@@ -604,11 +604,8 @@ PP(pp_study) if(unop->op_first && unop->op_first->op_type == OP_PUSHRE) { PMOP *pm = (PMOP *)unop->op_first; SV *rv = sv_newmortal(); - REGEXP *re = pm->op_pmregexp; - sv = newSVrv(rv, "Regexp"); - sv_setpvn(sv,re->precomp,re->prelen); - sv_magic(sv,(SV*)ReREFCNT_inc(re),'r',0,0); + sv_magic(sv,(SV*)ReREFCNT_inc(pm->op_pmregexp),'r',0,0); RETURNX(PUSHs(rv)); } |