summaryrefslogtreecommitdiffstats
path: root/contrib/perl5/t/pragma/warn/taint
diff options
context:
space:
mode:
Diffstat (limited to 'contrib/perl5/t/pragma/warn/taint')
-rw-r--r--contrib/perl5/t/pragma/warn/taint49
1 files changed, 0 insertions, 49 deletions
diff --git a/contrib/perl5/t/pragma/warn/taint b/contrib/perl5/t/pragma/warn/taint
deleted file mode 100644
index fd6deed..0000000
--- a/contrib/perl5/t/pragma/warn/taint
+++ /dev/null
@@ -1,49 +0,0 @@
- taint.c AOK
-
- Insecure %s%s while running with -T switch
-
-__END__
--T
---FILE-- abc
-def
---FILE--
-# taint.c
-open(FH, "<abc") ;
-$a = <FH> ;
-close FH ;
-chdir $a ;
-print "xxx\n" ;
-EXPECT
-Insecure dependency in chdir while running with -T switch at - line 5.
-########
--TU
---FILE-- abc
-def
---FILE--
-# taint.c
-open(FH, "<abc") ;
-$a = <FH> ;
-close FH ;
-chdir $a ;
-print "xxx\n" ;
-EXPECT
-xxx
-########
--TU
---FILE-- abc
-def
---FILE--
-# taint.c
-open(FH, "<abc") ;
-$a = <FH> ;
-close FH ;
-use warnings 'taint' ;
-chdir $a ;
-print "xxx\n" ;
-no warnings 'taint' ;
-chdir $a ;
-print "yyy\n" ;
-EXPECT
-Insecure dependency in chdir while running with -T switch at - line 6.
-xxx
-yyy
OpenPOWER on IntegriCloud