1#!./perl 2 3BEGIN { 4 chdir 't' if -d 't'; 5 @INC = '../lib'; 6 require './test.pl'; 7} 8 9plan( tests => 1); 10 11require Config; import Config; 12 13if (($Config{'extensions'} !~ /\bFcntl\b/) ){ 14 BAIL_OUT("Perl configured without Fcntl module"); 15} 16##Finds IO submodules when using \b 17if (($Config{'extensions'} !~ /\bIO\s/) ){ 18 BAIL_OUT("Perl configured without IO module"); 19} 20if (($Config{'extensions'} !~ /\bFile\/Glob\b/) ){ 21 BAIL_OUT("Perl configured without File::Glob module"); 22} 23 24pass('common sense'); 25 26