X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F23-magic-uvar.t;h=28422b0799a269bee91fab697e783f0af8ecb133;hb=1a89808e0eb3e27e0d2b61d0bfa84fa8ab94b9cb;hp=1e24d25d2ab48660a0325e4c80473855b36de0d0;hpb=c00bbcee86add7a0549dd9bfb9a6ddbcaa62b256;p=perl%2Fmodules%2FLexical-Types.git

diff --git a/t/23-magic-uvar.t b/t/23-magic-uvar.t
index 1e24d25..28422b0 100644
--- a/t/23-magic-uvar.t
+++ b/t/23-magic-uvar.t
@@ -53,6 +53,7 @@ sub check (&$$;$) {
   } else {
    eval { $test->() };
   }
+  local $Test::Builder::Level = $Test::Builder::Level + 1;
   is_deeply $got, $exp, $desc;
  }
  return $want ? @ret : $ret[0];