Goodbye AvFLAGS

p4raw-id: //depot/perl@24518

1 files changed, 1 insertions, 1 deletions

diff --git a/pp_ctl.c b/pp_ctl.c
index 458dae67b3..9b4c2ff1c5 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2315,7 +2315,7 @@ PP(pp_goto)
 		    SvREFCNT_dec(av);
 		    av = newAV();
 		    av_extend(av, items-1);
-		    AvFLAGS(av) = AVf_REIFY;
+		    AvREIFY_only(av);
 		    PAD_SVl(0) = (SV*)(cx->blk_sub.argarray = av);
 		}
 	    }