X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F22-magic.t;h=d0cae1b8e0f773fac1b0b4ecf3982e72c17c417d;hb=bf1b09f4ab8df1710df549764d511b110c6cb396;hp=c6a517c8b2fa6d24c95ccf4de60c82d719677561;hpb=5c21bf6de3e2527b0fe556b5d67d785f1d686a8d;p=perl%2Fmodules%2FLexical-Types.git

diff --git a/t/22-magic.t b/t/22-magic.t
index c6a517c..d0cae1b 100644
--- a/t/22-magic.t
+++ b/t/22-magic.t
@@ -13,7 +13,7 @@ BEGIN {
 {
  package Lexical::Types::Test::Str;
 
- use Variable::Magic qw/wizard cast/;
+ use Variable::Magic qw<wizard cast>;
 
  our $wiz;
  BEGIN {
@@ -40,7 +40,8 @@ sub check (&$$;$) {
  my $want = wantarray;
  my @ret;
  {
-  local @{$got}{qw/get set/}; delete @{$got}{qw/get set/};
+  local @{$got}{qw<get set>};
+  delete @{$got}{qw<get set>};
   if ($want) {
    @ret = eval { $test->() };
   } elsif (defined $want) {
@@ -48,6 +49,7 @@ sub check (&$$;$) {
   } else {
    eval { $test->() };
   }
+  local $Test::Builder::Level = $Test::Builder::Level + 1;
   is_deeply $got, $exp, $desc;
  }
  return $want ? @ret : $ret[0];