Clean up Darwin hints

[p5sagit/p5-mst-13.2.git] / op.c

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;