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} 20# hey, DOS users do not need this kind of common sense ;-) 21if ($^O ne 'dos' && ($Config{'extensions'} !~ /\bFile\/Glob\b/) ){ 22 BAIL_OUT("Perl configured without File::Glob module"); 23} 24 25pass('common sense'); 26 27