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