Save some repeated strlen()s in Perl_swash_init
[p5sagit/p5-mst-13.2.git] / 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