fix handling of mayhaps-extended @_ in goto &sub

p4raw-id: //depot/perl@2030

1 files changed, 1 insertions, 0 deletions

diff --git a/av.c b/av.c
index af463cb3aa..5242ffc887 100644
--- a/av.c
+++ b/av.c
@@ -41,6 +41,7 @@ av_reify(AV *av)
     key = AvARRAY(av) - AvALLOC(av);
     while (key)
 	AvALLOC(av)[--key] = &PL_sv_undef;
+    AvREIFY_off(av);
     AvREAL_on(av);
 }