Fixes the case of $a = \$#{[]}; and then accessing $$a

(but not \$#a after local @a or my @a leave a block)

p4raw-id: //depot/perl@24783

1 files changed, 13 insertions, 1 deletions

diff --git a/perl.h b/perl.h
index 3df67ebf71..5eff7de71f 100644
--- a/perl.h
+++ b/perl.h
@@ -3805,7 +3805,8 @@ enum {		/* pass one of these to get_vtbl */
     want_vtbl_regdatum,
     want_vtbl_backref,
     want_vtbl_utf8,
-    want_vtbl_symtab
+    want_vtbl_symtab,
+    want_vtbl_arylen_p
 };
 
 				/* Note: the lowest 8 bits are reserved for
@@ -4165,6 +4166,17 @@ MGVTBL_SET(
 );
 
 MGVTBL_SET(
+    PL_vtbl_arylen_p,
+    NULL,
+    NULL,
+    NULL,
+    NULL,
+    MEMBER_TO_FPTR(Perl_magic_freearylen_p),
+    NULL,
+    NULL
+);
+
+MGVTBL_SET(
     PL_vtbl_glob,
     MEMBER_TO_FPTR(Perl_magic_getglob),
     MEMBER_TO_FPTR(Perl_magic_setglob),