1 files changed, 2 insertions, 2 deletions
diff --git a/doop.c b/doop.c
index ffc20a9e3e..db97cd537d 100644
--- a/doop.c
+++ b/doop.c
@@ -998,7 +998,7 @@ Perl_do_chop(pTHX_ register SV *astr, register SV *sv)
 
     if (SvTYPE(sv) == SVt_PVAV) {
 	register I32 i;
-	AV* const av = (AV*)sv;
+	AV *const av = MUTABLE_AV(sv);
 	const I32 max = AvFILL(av);
 
 	for (i = 0; i <= max; i++) {
@@ -1084,7 +1084,7 @@ Perl_do_chomp(pTHX_ register SV *sv)
     count = 0;
     if (SvTYPE(sv) == SVt_PVAV) {
 	register I32 i;
-	AV* const av = (AV*)sv;
+	AV *const av = MUTABLE_AV(sv);
 	const I32 max = AvFILL(av);
 
 	for (i = 0; i <= max; i++) {