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