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

diff --git a/t/23-magic-uvar.t b/t/23-magic-uvar.t
index 1e24d25..ce80f2e 100644
--- a/t/23-magic-uvar.t
+++ b/t/23-magic-uvar.t
@@ -6,14 +6,14 @@ use warnings;
 use Test::More;
 
 BEGIN {
- plan skip_all => 'Variable::Magic 0.08 on 5.10 required to test uvar magic'
-              unless eval "use Variable::Magic 0.08; Variable::Magic::VMG_UVAR";
+ plan skip_all => 'Variable::Magic 0.35 on 5.10 required to test uvar magic'
+              unless eval "use Variable::Magic 0.35; Variable::Magic::VMG_UVAR";
 }
 
 {
  package Lexical::Types::Test::Ref;
 
- use Variable::Magic qw/wizard cast/;
+ use Variable::Magic qw<wizard cast>;
 
  our $wiz;
  BEGIN {
@@ -45,7 +45,8 @@ sub check (&$$;$) {
  my $want = wantarray;
  my @ret;
  {
-  local @{$got}{qw/fetch store/}; delete @{$got}{qw/fetch store/};
+  local @{$got}{qw<fetch store>};
+  delete @{$got}{qw<fetch store>};
   if ($want) {
    @ret = eval { $test->() };
   } elsif (defined $want) {
@@ -53,6 +54,7 @@ sub check (&$$;$) {
   } else {
    eval { $test->() };
   }
+  local $Test::Builder::Level = $Test::Builder::Level + 1;
   is_deeply $got, $exp, $desc;
  }
  return $want ? @ret : $ret[0];