From: Vincent Pit <perl@profvince.com>
Date: Wed, 11 Nov 2009 10:55:43 +0000 (+0100)
Subject: Make diag.t skip the warning I just fixed
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=06f07c2f42f10bc23298ee775c814342f08e1bd6;p=p5sagit%2Fp5-mst-13.2.git

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