correct hints test when running in git checkout
Graham Knop [Fri, 13 Jun 2014 11:07:49 +0000 (07:07 -0400)]
t/hints.t

index 62cecc8..f5681b3 100644 (file)
--- 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;