Select Code to Download

Select or download this

perl -MO=Terse -e 'print;exit' LISTOP
(0x8133d68) leave [1]
    OP (0x8126628) enter
...
            SVOP (0x8133f40) gvsv GV (0x811e120) *_
    COP (0x8133d90) nextstate
    OP (0x8133c98) exit

Select or download this

perl -d -MO=Terse
-e 'print;exit'

...
            SVOP (0x82db350) gvsv GV (0x811e120) *_
    COP (0x81334b0) dbstate
    OP (0x8134a98) exit

Select or download this

    if (PERLDB_LINE && CopLINE(PL_curcop)
&& PL_curstash != PL_debstash) {
...
        cop->op_type = OP_NEXTSTATE;
        cop->op_ppaddr = PL_ppaddr[ OP_NEXTSTATE ];
    }

Select or download this

B::Utils::walkallops_filtered(
   sub {
       local $@;
...
       };
   },
   \ &_enbug_cop, );

Select or download this

 void Enbugger_enbug_cop( o )
        SV * o
    PROTOTYPE: $
...
        cop = INT2PTR( COP*, SvIV( SvRV( o ) ) );
        cop->op_type = OP_DBSTATE;
        cop->op_ppaddr = PL_ppaddr[ OP_DBSTATE ];