xref: /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/lib/warnings/taint (revision 0:68f95e015346)
1*0Sstevel@tonic-gate  taint.c AOK
2*0Sstevel@tonic-gate
3*0Sstevel@tonic-gate  Insecure %s%s while running with -T switch
4*0Sstevel@tonic-gate
5*0Sstevel@tonic-gate__END__
6*0Sstevel@tonic-gate-T
7*0Sstevel@tonic-gate--FILE-- abc
8*0Sstevel@tonic-gatedef
9*0Sstevel@tonic-gate--FILE--
10*0Sstevel@tonic-gate# taint.c
11*0Sstevel@tonic-gateopen(FH, "<abc") ;
12*0Sstevel@tonic-gate$a = <FH> ;
13*0Sstevel@tonic-gateclose FH ;
14*0Sstevel@tonic-gatechdir $a ;
15*0Sstevel@tonic-gateprint "xxx\n" ;
16*0Sstevel@tonic-gateEXPECT
17*0Sstevel@tonic-gateInsecure dependency in chdir while running with -T switch at - line 5.
18*0Sstevel@tonic-gate########
19*0Sstevel@tonic-gate-TU
20*0Sstevel@tonic-gate--FILE-- abc
21*0Sstevel@tonic-gatedef
22*0Sstevel@tonic-gate--FILE--
23*0Sstevel@tonic-gate# taint.c
24*0Sstevel@tonic-gateopen(FH, "<abc") ;
25*0Sstevel@tonic-gate$a = <FH> ;
26*0Sstevel@tonic-gateclose FH ;
27*0Sstevel@tonic-gatechdir $a ;
28*0Sstevel@tonic-gateprint "xxx\n" ;
29*0Sstevel@tonic-gateEXPECT
30*0Sstevel@tonic-gatexxx
31*0Sstevel@tonic-gate########
32*0Sstevel@tonic-gate-TU
33*0Sstevel@tonic-gate--FILE-- abc
34*0Sstevel@tonic-gatedef
35*0Sstevel@tonic-gate--FILE--
36*0Sstevel@tonic-gate# taint.c
37*0Sstevel@tonic-gateopen(FH, "<abc") ;
38*0Sstevel@tonic-gate$a = <FH> ;
39*0Sstevel@tonic-gateclose FH ;
40*0Sstevel@tonic-gateuse warnings 'taint' ;
41*0Sstevel@tonic-gatechdir $a ;
42*0Sstevel@tonic-gateprint "xxx\n" ;
43*0Sstevel@tonic-gateno warnings 'taint' ;
44*0Sstevel@tonic-gatechdir $a ;
45*0Sstevel@tonic-gateprint "yyy\n" ;
46*0Sstevel@tonic-gateEXPECT
47*0Sstevel@tonic-gateInsecure dependency in chdir while running with -T switch at - line 6.
48*0Sstevel@tonic-gatexxx
49*0Sstevel@tonic-gateyyy
50