From: Andrew Main <zefram@fysh.org>
Date: Mon, 2 Sep 2013 10:28:16 +0000 (+0200)
Subject: Adjust t/07-context_info.t for perl 5.19.3
X-Git-Tag: rt88177
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=16425026dc091019d0417bed7eec88e0b7de5604;p=perl%2Fmodules%2FScope-Upper.git

Adjust t/07-context_info.t for perl 5.19.3

This fixes RT #88177.
---

diff --git a/t/07-context_info.t b/t/07-context_info.t
index 32a943b..3c06ac4 100644
--- a/t/07-context_info.t
+++ b/t/07-context_info.t
@@ -47,6 +47,7 @@ sub expected {
  if ($top) {
   $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;
  }