Commit | Line | Data |
---|---|---|
0453d815 | 1 | taint.c AOK |
599cee73 | 2 | |
599cee73 | 3 | Insecure %s%s while running with -T switch |
4 | ||
599cee73 | 5 | __END__ |
0453d815 | 6 | -T |
7 | --FILE-- abc | |
8 | def | |
9 | --FILE-- | |
599cee73 | 10 | # taint.c |
0453d815 | 11 | open(FH, "<abc") ; |
12 | $a = <FH> ; | |
13 | close FH ; | |
14 | chdir $a ; | |
15 | print "xxx\n" ; | |
599cee73 | 16 | EXPECT |
0453d815 | 17 | Insecure dependency in chdir while running with -T switch at - line 5. |
599cee73 | 18 | ######## |
0453d815 | 19 | -TU |
20 | --FILE-- abc | |
21 | def | |
22 | --FILE-- | |
599cee73 | 23 | # taint.c |
0453d815 | 24 | open(FH, "<abc") ; |
25 | $a = <FH> ; | |
26 | close FH ; | |
27 | chdir $a ; | |
28 | print "xxx\n" ; | |
599cee73 | 29 | EXPECT |
0453d815 | 30 | xxx |
31 | ######## | |
32 | -TU | |
33 | --FILE-- abc | |
34 | def | |
35 | --FILE-- | |
36 | # taint.c | |
37 | open(FH, "<abc") ; | |
38 | $a = <FH> ; | |
39 | close FH ; | |
40 | use warning 'taint' ; | |
41 | chdir $a ; | |
42 | print "xxx\n" ; | |
43 | no warning 'taint' ; | |
44 | chdir $a ; | |
45 | print "yyy\n" ; | |
46 | EXPECT | |
47 | Insecure dependency in chdir while running with -T switch at - line 6. | |
48 | xxx | |
49 | yyy |