This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make diag.t skip the warning I just fixed
authorVincent Pit <perl@profvince.com>
Wed, 11 Nov 2009 10:55:43 +0000 (11:55 +0100)
committerVincent Pit <perl@profvince.com>
Wed, 11 Nov 2009 10:56:31 +0000 (11:56 +0100)
It's just for MAD anyway.

op.c

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