6 if (($Config::Config{'extensions'} !~ /\bB\b/) ){
7 print "1..0 # Skip -- Perl configured without B module\n";
10 if ($Config::Config{'extensions'} !~ /\bFcntl\b/) {
11 print "1..0 # Skip -- Perl configured without Fcntl\n";
14 # S_IFMT is a real subroutine, and acts as control
15 # SEEK_SET is a proxy constant subroutine.
16 @symbols = qw(S_IFMT SEEK_SET);
21 use Test::More tests => 4 * @symbols;
22 use B qw(svref_2object GVf_IMPORTED_CV);
25 # GVf_IMPORTED_CV should not be set on the original, but should be set on the
28 foreach my $symbol (@symbols) {
32 $ps = svref_2object(\*{"Fcntl::$symbol"});
33 $ms = svref_2object(\*{"::$symbol"});
36 is($ps->GvFLAGS() & GVf_IMPORTED_CV, 0,
37 "GVf_IMPORTED_CV not set on original");
39 is($ms->GvFLAGS() & GVf_IMPORTED_CV, GVf_IMPORTED_CV,
40 "GVf_IMPORTED_CV set on imported GV");