1#!./perl -T
2
3BEGIN {
4    chdir 't' if -d 't';
5    if ($^O eq 'MacOS') { 
6	@INC = qw(: ::lib ::macos:lib); 
7    } else { 
8	@INC = '.'; 
9	push @INC, '../lib'; 
10    }
11    require Config; import Config;
12    if ($Config{'extensions'} !~ /\bFile\/Glob\b/i) {
13        print "1..0\n";
14        exit 0;
15    }
16    print "1..2\n";
17}
18END {
19    print "not ok 1\n" unless $loaded;
20}
21use File::Glob;
22$loaded = 1;
23print "ok 1\n";
24
25# all filenames should be tainted
26@a = File::Glob::bsd_glob("*");
27eval { $a = join("",@a), kill 0; 1 };
28unless ($@ =~ /Insecure dependency/) {
29    print "not ";
30}
31print "ok 2\n";
32