debugging selfloaded stuff

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

p4raw-id: //depot/perl@11456

1 files changed, 2 insertions, 0 deletions

diff --git a/op.c b/op.c
index 33374e9298..62309a1f1b 100644
--- 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;