X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=op.c;h=62309a1f1b34525b508335cb77f43745b07c281e;hb=187122cbaf4bb21705259325ef8e0e420b0241df;hp=33374e92987fe984a7739fe756af4eb762a7fcc7;hpb=dad750121485da0e5d544b0581f7569bb424e5d3;p=p5sagit%2Fp5-mst-13.2.git

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;