X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F11-args.t;h=26aa4b6335d89f1f2bdba3752e508432adc3fa01;hb=1a89808e0eb3e27e0d2b61d0bfa84fa8ab94b9cb;hp=eefa32eb06afa6b5beb80d9db91fe8a460af6561;hpb=c00bbcee86add7a0549dd9bfb9a6ddbcaa62b256;p=perl%2Fmodules%2FLexical-Types.git

diff --git a/t/11-args.t b/t/11-args.t
index eefa32e..26aa4b6 100644
--- a/t/11-args.t
+++ b/t/11-args.t
@@ -10,6 +10,7 @@ use Test::More tests => 14 + 6;
 
  sub TYPEDSCALAR {
   $_[1] = (caller(0))[2];
+  local $Test::Builder::Level = $Test::Builder::Level + 1;
   Test::More::is($_[2], 'LTT', 'original type is ok');
   ();
  }
@@ -126,7 +127,7 @@ use Test::More tests => 14 + 6;
 }
 
 {
- my $expect = qr/^coconut at \Q$0\E line 30/;
+ my $expect = qr/^coconut at \Q$0\E line 31/;
  local $@;
  eval q[
   use Lexical::Types;