8 HV* regexp_hv = get_hv( "B::C::REGEXP", 0 );
9 SV* key = newSViv( 0 );
14 if( PL_op->op_type == OP_QR ) {
16 REGEXP* rx = PM_GETRE( (PMOP*)PL_op );
17 SV* rv = newSViv( 0 );
19 New( 671, op, 1, PMOP );
20 Copy( PL_op, op, 1, PMOP );
21 /* we need just the flags */
23 op->op_sibling = NULL;
26 op->op_pmreplroot = NULL;
27 op->op_pmreplstart = NULL;
35 sv_setiv( key, PTR2IV( rx ) );
36 sv_setref_iv( rv, "B::PMOP", PTR2IV( op ) );
38 hv_store_ent( regexp_hv, key, rv, 0 );
40 } while ((PL_op = CALL_FPTR(PL_op->op_ppaddr)(aTHX)));
48 MODULE=B__C PACKAGE=B::C
53 PL_runops = my_runops;