Add a regression test for GH #24006

Author: bbrtj

t/op/array.t

@@ -6,7 +6,7 @@ BEGIN {
     set_up_inc('.', '../lib');
 }
 
-plan (198);
+plan (199);
 
 #
 # @foo, @bar, and @ary are also used from tie-stdarray after tie-ing them
@@ -734,3 +734,15 @@ fresh_perl_is('my @x;$x[0] = 1;shift @x;$x[22] = 1;$x[25] = 1;','',
     is($arr[1], 3,
        'Array element within array range created at correct index from subroutine @_ alias; GH 16364');
 }
+
+# regression test for GH #24006
+{
+    use feature qw(refaliasing);
+    no warnings 'experimental::refaliasing';
+    my @arr = (1, 2);
+    Internals::SvREADONLY(@arr, 1);
+
+    eval { \$arr[1] = \42 };
+    ok !$@, "Last element's contents of a readonly array can be modified";
+}
+