Deprecate use of the attribute :locked on subroutines.

1 files changed, 1 insertions, 1 deletions

diff --git a/toke.c b/toke.c
index 8f5795a1b2..ca18af1f21 100644
--- a/toke.c
+++ b/toke.c
@@ -4395,7 +4395,7 @@ Perl_yylex(pTHX)
 		    }
 		    else if (!PL_in_my && len == 6 && strnEQ(SvPVX(sv), "locked", len)) {
 			sv_free(sv);
-			CvLOCKED_on(PL_compcv);
+			deprecate(":locked");
 		    }
 		    else if (!PL_in_my && len == 6 && strnEQ(SvPVX(sv), "method", len)) {
 			sv_free(sv);