Make diag.t skip the warning I just fixed

It's just for MAD anyway.

diff --git a/op.c b/op.c
index 0d6351a..b1e8c90 100644 (file)
--- a/op.c
+++ b/op.c
@@ -5774,6 +5774,7 @@ Perl_newATTRSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block)
            if (PL_madskills) {
                if (strEQ(name, "import")) {
                    PL_formfeed = MUTABLE_SV(cv);
+                   /* diag_listed_as: SKIPME */
                    Perl_warner(aTHX_ packWARN(WARN_VOID), "0x%"UVxf"\n", (UV)cv);
                }
            }