Report the correct line in import argument tests

[perl/modules/Test-Leaner.git] / t / 04-fallback-import-arg.t

diff --git a/t/04-fallback-import-arg.t b/t/04-fallback-import-arg.t
index 2d74d136737ff9bd2faaeead9e92b553895512d9..6e0c4bf837ae974020455efc49d370a54eea3497 100644 (file)
--- a/t/04-fallback-import-arg.t
+++ b/t/04-fallback-import-arg.t
@@ -38,6 +38,7 @@ my @default_exports = qw<
 >;
 
 sub check_imports {
+ local $Test::Builder::Level = ($Test::Builder::Level || 0) + 1;
  my %imported     = map { $_ => 1 } @{ $_[0] || [] };
  my @not_imported = @{ $_[1] || [] };
  for (@not_imported, grep !$imported{$_}, @default_exports) {