X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=Upper.xs;fp=Upper.xs;h=f7698d8a3dbb282826e02aa98f528bfe8b225ba0;hb=5736d907ca8e5e47a4c2c70564014c8b4ec4f1aa;hp=f6e678d405a2c4a5f493a428557db5572f10df44;hpb=e7846e7f6fded4c4a3139054c5206c1480711867;p=perl%2Fmodules%2FScope-Upper.git

diff --git a/Upper.xs b/Upper.xs
index f6e678d..f7698d8 100644
--- a/Upper.xs
+++ b/Upper.xs
@@ -1984,7 +1984,7 @@ static I32 su_uplevel(pTHX_ CV *callback, I32 cxix, I32 args) {
   * target context, plus the forthcoming arguments. */
  new_mark = cx->blk_oldsp;
  av_extend(si->si_stack, new_mark + 1 + args + 1);
- Copy(PL_curstack, AvARRAY(si->si_stack), new_mark + 1, SV *);
+ Copy(AvARRAY(PL_curstack), AvARRAY(si->si_stack), new_mark + 1, SV *);
  AvFILLp(si->si_stack) = new_mark;
  SU_POISON(AvARRAY(si->si_stack) + new_mark + 1, args + 1, SV *);