Move the locale/strict/warnings helper files back
[p5sagit/p5-mst-13.2.git] / t / lib / warnings / taint
1   taint.c AOK
2
3   Insecure %s%s while running with -T switch
4
5 __END__
6 -T
7 --FILE-- abc
8 def
9 --FILE--
10 # taint.c
11 open(FH, "<abc") ;
12 $a = <FH> ;
13 close FH ;
14 chdir $a ;
15 print "xxx\n" ;
16 EXPECT
17 Insecure dependency in chdir while running with -T switch at - line 5.
18 ########
19 -TU
20 --FILE-- abc
21 def
22 --FILE--
23 # taint.c
24 open(FH, "<abc") ;
25 $a = <FH> ;
26 close FH ;
27 chdir $a ;
28 print "xxx\n" ;
29 EXPECT
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 warnings 'taint' ;
41 chdir $a ;
42 print "xxx\n" ;
43 no warnings '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