]> git.vpit.fr Git - perl/modules/Scope-Upper.git/blobdiff - t/07-context_info.t
Update VPIT::TestHelpers to 6ca15279
[perl/modules/Scope-Upper.git] / t / 07-context_info.t
index 58ea97b6d579d7c6735178170fa22e73963f0029..b32dba7670e39b963cad919597136f3fafa77b6c 100644 (file)
@@ -45,8 +45,11 @@ sub expected {
  }
 
  if ($top) {
-  $want   = "$]" < 5.015_001 ? '' : undef;
-  $hints &= ~HINT_BLOCK_SCOPE if $Config{usesitecustomize};
+  $want      = "$]" < 5.015_001 ? '' : undef;
+  $hints    &= ~HINT_BLOCK_SCOPE if $Config{usesitecustomize};
+  $hints    |=  HINT_BLOCK_SCOPE if "$]" >= 5.019003;
+  $warnings  = sub { use warnings; (caller 0)[9] }->() if  "$]" < 5.007
+                                                       and not $^W;
  }
 
  my @exp = (