From 8782bef2aa2ca158fdd0d7436e68ae3ac2b01ff7 Mon Sep 17 00:00:00 2001 From: Graham Barr Date: Sun, 12 Jul 1998 14:57:47 -0500 Subject: 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 --- pp.c | 8 -------- 1 file changed, 8 deletions(-) (limited to 'pp.c') diff --git a/pp.c b/pp.c index 64958c40c0..8625a3957e 100644 --- a/pp.c +++ b/pp.c @@ -601,14 +601,6 @@ PP(pp_study) register I32 *snext; STRLEN len; - if(unop->op_first && unop->op_first->op_type == OP_PUSHRE) { - PMOP *pm = (PMOP *)unop->op_first; - SV *rv = sv_newmortal(); - sv = newSVrv(rv, "Regexp"); - sv_magic(sv,(SV*)ReREFCNT_inc(pm->op_pmregexp),'r',0,0); - RETURNX(PUSHs(rv)); - } - if (sv == lastscream) { if (SvSCREAM(sv)) RETPUSHYES; -- cgit v1.2.1