X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=Upper.xs;h=f6ed5c6381bf38df43caf09949a5af0bd104100d;hb=da5a83af50b62d200a1255f470a1403a342da901;hp=e54c013dc160e9affe21c44a8c640846adc0910b;hpb=74b0ee997905290c58059ad517b91462503b1c10;p=perl%2Fmodules%2FScope-Upper.git

diff --git a/Upper.xs b/Upper.xs
index e54c013..f6ed5c6 100644
--- a/Upper.xs
+++ b/Upper.xs
@@ -384,7 +384,7 @@ static su_uplevel_ud *su_uplevel_ud_new(pTHX) {
  si->si_stack   = newAV();
  AvREAL_off(si->si_stack);
  si->si_cxstack = NULL;
- si->si_cxmax   = 0;
+ si->si_cxmax   = -1;
 
  sud->si = si;