Correct failing tests locations

[perl/modules/Lexical-Types.git] / t / 11-args.t

diff --git a/t/11-args.t b/t/11-args.t
index eefa32eb06afa6b5beb80d9db91fe8a460af6561..26aa4b6335d89f1f2bdba3752e508432adc3fa01 100644 (file)
--- 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;