tweak for change#7173

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

diff --git a/op.c b/op.c
index 3389d93..84a1df9 100644 (file)
--- a/op.c
+++ b/op.c
@@ -4561,9 +4561,6 @@ Perl_newATTRSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block)
     CvGV(cv) = (GV*)SvREFCNT_inc(gv);
     CvFILE(cv) = CopFILE(PL_curcop);
     CvSTASH(cv) = PL_curstash;
-    /* use subs; etc may have turned this on
-       As we're (re)defining the sub here it's definately not imported */
-    GvIMPORTED_CV_off(gv);
 #ifdef USE_THREADS
     CvOWNER(cv) = 0;
     if (!CvMUTEXP(cv)) {