From: Ilya Zakharevich <ilya@math.berkeley.edu>
Date: Mon, 23 Jul 2001 18:07:40 +0000 (-0400)
Subject: debugging selfloaded stuff
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a933f6011129fbd383aba331534ef87e35eeff2f;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;