This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
undef *_; goto &f: update cx.argarray
[perl5.git] / pp_ctl.c
index 8d21db7..e05a99b 100644 (file)
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2848,8 +2848,9 @@ PP(pp_goto)
                       ence count. */
                    if (arg) {
                        SvREFCNT_dec(PAD_SVl(0));
-                       PAD_SVl(0) = (SV *)(cx->blk_sub.argarray = arg);
+                       PAD_SVl(0) = (SV *)arg;
                    }
+                    cx->blk_sub.argarray = (AV*)PAD_SVl(0);
 
                    /* GvAV(PL_defgv) might have been modified on scope
                       exit, so restore it. */