Bugs revealed by replacing (SV *) casts with something that doesn't

cast away const - AvFILL() doesn't guarantee that it won't modify the
AV * passed to it. So the prototype for Perl_av_len() needs to change,
and a const needs to go in Perl_magic_setarraylen().

p4raw-id: //depot/perl@34604

1 files changed, 1 insertions, 1 deletions

diff --git a/mg.c b/mg.c
index b34257df0e..643ec7e779 100644
--- a/mg.c
+++ b/mg.c
@@ -1895,7 +1895,7 @@ int
 Perl_magic_getarylen(pTHX_ SV *sv, const MAGIC *mg)
 {
     dVAR;
-    const AV * const obj = (AV*)mg->mg_obj;
+    AV * const obj = (AV*)mg->mg_obj;
 
     PERL_ARGS_ASSERT_MAGIC_GETARYLEN;