X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FEval-WithLexicals.git;a=blobdiff_plain;f=t%2Flib%2Fhint_hash_pragma.pm;fp=t%2Flib%2Fhint_hash_pragma.pm;h=98dcf6c0675dee6b0daa2fdaa685b59f925d42f3;hp=0000000000000000000000000000000000000000;hb=9661a07cde22f93b638636322a668c07b597c665;hpb=2b376bd0dc102f9019e007d889a844f94b3a87b9

diff --git a/t/lib/hint_hash_pragma.pm b/t/lib/hint_hash_pragma.pm
new file mode 100644
index 0000000..98dcf6c
--- /dev/null
+++ b/t/lib/hint_hash_pragma.pm
@@ -0,0 +1,10 @@
+package hint_hash_pragma;
+use strictures 1;
+
+sub import {
+  my ($class, $val) = @_;
+  $^H |= 0x20000;
+  $^H{hint_hash_pragma} = $val;
+}
+
+1;