Only remap the hint through the pointer table for threaded perls

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

diff --git a/t/lib/Lexical/Types/TestRequired3X.pm b/t/lib/Lexical/Types/TestRequired3X.pm
new file mode 100644 (file)
index 0000000..d327679
--- /dev/null
+++ b/t/lib/Lexical/Types/TestRequired3X.pm
@@ -0,0 +1,9 @@
+package Lexical::Types::TestRequired3X;
+
+use Lexical::Types as => \&main::cb3;
+
+my Int3X $x;
+Test::More::is($x, __FILE__.':'.(__LINE__-1),
+                                            'pragma in use after double setup');
+
+1;