[perl5.git] / t / lib / commonsense.t

#!./perl

chdir 't' if -d 't';
@INC = '../lib';
require Config; import Config;
if (($Config{'extensions'} !~ /\b(DB|[A-Z]DBM)_File\b/) ){
  print "Bail out! Perl configured without DB_File or [A-Z]DBM_File\n";
  exit 0;
}
if (($Config{'extensions'} !~ /\bFcntl\b/) ){
  print "Bail out! Perl configured without Fcntl module\n";
  exit 0;
}
if (($Config{'extensions'} !~ /\bIO\b/) ){
  print "Bail out! Perl configured without IO module\n";
  exit 0;
}
# hey, DOS users do not need this kind of common sense ;-)
if ($^O ne 'dos' && ($Config{'extensions'} !~ /\bFile\/Glob\b/) ){
  print "Bail out! Perl configured without File::Glob module\n";
  exit 0;
}

print "1..1\nok 1\n";
Commit	Line	Data
d667a7e6 A	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	}
7a06d84a LM	18	# hey, DOS users do not need this kind of common sense ;-)
7a06d84a LM	19	if ($^O ne 'dos' && ($Config{'extensions'} !~ /\bFile\/Glob\b/) ){
d667a7e6 A	20	print "Bail out! Perl configured without File::Glob module\n";
	21	exit 0;
	22	}
	23
	24	print "1..1\nok 1\n";
	25