X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F07-context_info.t;h=3c06ac4e3128ca93f161b916bb3b36a2b976968f;hb=1d30612dc39bd089cb54f07432fe6facaa09a8f5;hp=58ea97b6d579d7c6735178170fa22e73963f0029;hpb=d3500bc9b8882716ee933336bb903e20735e54ed;p=perl%2Fmodules%2FScope-Upper.git

diff --git a/t/07-context_info.t b/t/07-context_info.t
index 58ea97b..3c06ac4 100644
--- a/t/07-context_info.t
+++ b/t/07-context_info.t
@@ -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 = (