X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FEval-WithLexicals.git;a=blobdiff_plain;f=t%2Fhints.t;h=f5681b3d4178eee719dc52e6a2d2d16aa43221e1;hp=62cecc8e4cad07ad57363f69f8704d229550bb25;hb=2b376bd0dc102f9019e007d889a844f94b3a87b9;hpb=3092edd9bbbb87a896accb18efcef8524de40926

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;