+package Lexical::Types::TestRequired2;
+
+use Lexical::Types;
+
+BEGIN {
+ delete $INC{'Lexical/Types/TestRequired1.pm'};
+}
+
+use lib 't/lib';
+use Lexical::Types::TestRequired1;
+
+my Int $x;
+Test::More::is($x, 't/lib/Lexical/Types/TestRequired2.pm:' . (__LINE__-1), 'pragma in use in require');
+
+eval q!
+ my Int $y;
+ my $desc = 'pragma in use in eval in require';
+ if ($] < 5.009005) {
+ Test::More::is($y, undef, $desc);
+ } else {
+ Test::More::like($y, qr/^\(eval +\d+\):2$/, $desc);
+ }
+!;
+
+1;