t/lib/commonsense.t

   1 #!./perl
   2
   3 chdir 't' if -d 't';
   4 @INC = '../lib';
   5 require Config; import Config;
   6 if (($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 }
  10 if (($Config{'extensions'} !~ /\bFcntl\b/) ){
  11   print "Bail out! Perl configured without Fcntl module\n";
  12   exit 0;
  13 }
  14 if (($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 ;-)
  19 if ($^O ne 'dos' && ($Config{'extensions'} !~ /\bFile\/Glob\b/) ){
  20   print "Bail out! Perl configured without File::Glob module\n";
  21   exit 0;
  22 }
  23
  24 print "1..1\nok 1\n";
  25