fix memory leak in C<sub f { @_ = 1 } f() while 1>

p4raw-id: //depot/perl@4102

1 files changed, 1 insertions, 0 deletions

diff --git a/pp_hot.c b/pp_hot.c
index bb034e5be4..7c7bc5017b 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -2512,6 +2512,7 @@ try_autoload:
 	    if (AvREAL(av)) {
 		av_clear(av);
 		AvREAL_off(av);
+		AvREIFY_on(av);
 	    }
 #ifndef USE_THREADS
 	    cx->blk_sub.savearray = GvAV(PL_defgv);