1#!./perl 2 3chdir 't' if -d 't'; 4@INC = '../lib'; 5require Config; import Config; 6if (($Config{'extensions'} !~ /\b(DB|[A-Z]DBM)_File\b/) ){ 7 print "Bail out! Perl configured without DB_File or [A-Z]DBM_File\n"; 8 exit 0; 9} 10if (($Config{'extensions'} !~ /\bFcntl\b/) ){ 11 print "Bail out! Perl configured without Fcntl module\n"; 12 exit 0; 13} 14if (($Config{'extensions'} !~ /\bIO\b/) ){ 15 print "Bail out! Perl configured without IO module\n"; 16 exit 0; 17} 18# hey, DOS users do not need this kind of common sense ;-) 19if ($^O ne 'dos' && ($Config{'extensions'} !~ /\bFile\/Glob\b/) ){ 20 print "Bail out! Perl configured without File::Glob module\n"; 21 exit 0; 22} 23 24print "1..1\nok 1\n"; 25 26