From: Graham Knop <haarg@haarg.org>
Date: Fri, 13 Jun 2014 11:07:49 +0000 (-0400)
Subject: correct hints test when running in git checkout
X-Git-Tag: v1.003000~10
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2b376bd0dc102f9019e007d889a844f94b3a87b9;p=p5sagit%2FEval-WithLexicals.git

correct hints test when running in git checkout
---

diff --git a/t/hints.t b/t/hints.t
index 62cecc8..f5681b3 100644
--- a/t/hints.t
+++ b/t/hints.t
@@ -1,7 +1,12 @@
-use strictures 1;
-# Find the hint value that 'use strictures 1' sets on this perl.
+use strictures ();
 my $strictures_hints;
-BEGIN { $strictures_hints = $^H }
+BEGIN {
+  local $ENV{PERL_STRICTURES_EXTRA} = 0;
+  strictures->VERSION(1); strictures->import();
+  # Find the hint value that 'use strictures 1' sets on this perl.
+  $strictures_hints = $^H;
+}
+use strictures 1;
 
 use Test::More;
 use Eval::WithLexicals;