X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2Flib%2FVariable%2FMagic%2FTestWatcher.pm;h=a8b5297d11ece058169c62ad8e76c943762080ab;hb=1b88e230428d6cc4f3ff364fbcfd7f5c1a40fedc;hp=ef988d18075554466b53ad3ee7307ff050784360;hpb=9345c3acac8d56b421b1d53b2d800294b77e9ad6;p=perl%2Fmodules%2FVariable-Magic.git

diff --git a/t/lib/Variable/Magic/TestWatcher.pm b/t/lib/Variable/Magic/TestWatcher.pm
index ef988d1..a8b5297 100644
--- a/t/lib/Variable/Magic/TestWatcher.pm
+++ b/t/lib/Variable/Magic/TestWatcher.pm
@@ -42,6 +42,7 @@ sub check (&;$$) {
  my $exp  = _types shift;
  my $desc = shift;
  local %mg = ();
+ local $Test::Builder::Level = ($Test::Builder::Level || 0) + 1;
  my @ret = eval { $code->() };
  is        $@,   '',   $prefix . $desc . ' doesn\'t croak';
  is_deeply \%mg, $exp, $prefix . $desc . ' triggers magic correctly';