Fix diag.t failure with diag_listed_as comment

1 files changed, 1 insertions, 0 deletions

diff --git a/sv.c b/sv.c
index 7cbf26c88c..742518ac67 100644
--- 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));