Fix diag.t failure with diag_listed_as comment

diff --git a/sv.c b/sv.c
index 7cbf26c..742518a 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -14317,6 +14317,7 @@ Perl_report_uninit(pTHX_ const SV *uninit_sv)
            if (varname)
                sv_insert(varname, 0, 0, " ", 1);
        }
+       /* diag_listed_as: Use of uninitialized value%s */
        Perl_warner(aTHX_ packWARN(WARN_UNINITIALIZED), PL_warn_uninit_sv,
                SVfARG(varname ? varname : &PL_sv_no),
                " in ", OP_DESC(PL_op));