Use ‘state’ in warning about sort {state $a}

1 files changed, 3 insertions, 1 deletions

diff --git a/op.c b/op.c
index 14cc21fc08..311f5a0ac8 100644
--- a/op.c
+++ b/op.c
@@ -9350,8 +9350,10 @@ S_simplify_sort(pTHX_ OP *o)
 		SV * const name = AvARRAY(PL_comppad_name)[kid->op_targ];
 		if (SvCUR(name) == 2 && *SvPVX(name) == '$'
 		 && (SvPVX(name)[1] == 'a' || SvPVX(name)[1] == 'b'))
+		    /* diag_listed_as: "my %s" used in sort comparison */
 		    Perl_warner(aTHX_ packWARN(WARN_SYNTAX),
-				     "\"my %s\" used in sort comparison",
+				     "\"%s %s\" used in sort comparison",
+				      SvPAD_STATE(name) ? "state" : "my",
 				      SvPVX(name));
 	    }
 	} while ((kid = kid->op_sibling));