debugging selfloaded stuff

Message-ID: <20010723180740.A13960@math.ohio-state.edu>

p4raw-id: //depot/perl@11456

diff --git a/op.c b/op.c
index 33374e9..62309a1 100644 (file)
--- a/op.c
+++ b/op.c
@@ -4750,6 +4750,8 @@ Perl_newATTRSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block)
        }
        /* ... before we throw it away */
        SvREFCNT_dec(PL_compcv);
+       if (PERLDB_INTER)/* Advice debugger on the new sub. */
+         ++PL_sub_generation;
     }
     else {
        cv = PL_compcv;