1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
#!./perl
BEGIN {
chdir 't' if -d 't';
@INC = '../lib';
require './test.pl';
}
use Config;
plan( tests => 1);
if (($Config{'extensions'} !~ /\bFcntl\b/) ){
BAIL_OUT("Perl configured without Fcntl module");
}
##Finds IO submodules when using \b
if (($Config{'extensions'} !~ /\bIO\s/) ){
BAIL_OUT("Perl configured without IO module");
}
if (($Config{'extensions'} !~ /\bFile\/Glob\b/) ){
BAIL_OUT("Perl configured without File::Glob module");
}
pass('common sense');
|
