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

1 files changed, 0 insertions, 8 deletions

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;