Only remap the hint through the pointer table for threaded perls

[perl/modules/Lexical-Types.git] / t / lib / Lexical / Types / TestRequired3Y.pm

diff --git a/t/lib/Lexical/Types/TestRequired3Y.pm b/t/lib/Lexical/Types/TestRequired3Y.pm
new file mode 100644 (file)
index 0000000..67214f2
--- /dev/null
+++ b/t/lib/Lexical/Types/TestRequired3Y.pm
@@ -0,0 +1,6 @@
+package Lexical::Types::TestRequired3Y;
+
+my Int3Y $y;
+Test::More::is($y, undef, 'pragma not in use in require after double setup');
+
+1;