Commit | Line | Data |
72b16652 |
1 | #!./perl -T |
2 | |
3 | BEGIN { |
4 | chdir 't' if -d 't'; |
5 | unshift @INC, '../lib'; |
d2a01882 |
6 | require Config; import Config; |
7 | if ($Config{'extensions'} !~ /\bFile\/Glob\b/i) { |
8 | print "1..0\n"; |
9 | exit 0; |
10 | } |
72b16652 |
11 | print "1..2\n"; |
12 | } |
13 | END { |
14 | print "not ok 1\n" unless $loaded; |
15 | } |
16 | use File::Glob; |
17 | $loaded = 1; |
18 | print "ok 1\n"; |
19 | |
20 | # all filenames should be tainted |
21 | @a = File::Glob::glob("*"); |
22 | eval { $a = join("",@a), kill 0; 1 }; |
23 | unless ($@ =~ /Insecure dependency/) { |
24 | print "not "; |
25 | } |
26 | print "ok 2\n"; |