https://perl5.git.perl.org / perl5.git / blame
| Commit | Line | Data |
|---|---|---|
| 0453d815 | 1 | taint.c AOK |
| 599cee73 | 2 | |
| 599cee73 PM |
3 | Insecure %s%s while running with -T switch |
| 4 | ||
| 599cee73 | 5 | __END__ |
| 0453d815 PM |
6 | -T |
| 7 | --FILE-- abc | |
| 8 | def | |
| 9 | --FILE-- | |
| 599cee73 | 10 | # taint.c |
| 0453d815 PM |
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 PM |
19 | -TU |
| 20 | --FILE-- abc | |
| 21 | def | |
| 22 | --FILE-- | |
| 599cee73 | 23 | # taint.c |
| 0453d815 PM |
24 | open(FH, "<abc") ; |
| 25 | $a = <FH> ; | |
| 26 | close FH ; | |
| 27 | chdir $a ; | |
| 28 | print "xxx\n" ; | |
| 599cee73 | 29 | EXPECT |
| 0453d815 PM |
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 ; | |
| 4438c4b7 | 40 | use warnings 'taint' ; |
| 0453d815 PM |
41 | chdir $a ; |
| 42 | print "xxx\n" ; | |
| 4438c4b7 | 43 | no warnings 'taint' ; |
| 0453d815 PM |
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 |