From 0453d815b8a74697ff1e5451c27aba2fe537b8e0 Mon Sep 17 00:00:00 2001
From: Paul Marquess <paul.marquess@btinternet.com>
Date: Sun, 27 Jun 1999 00:19:52 +0100
Subject: lexical warnings update (warning.t fails one test due to leaked
 scalar, investigation pending) 	Message-ID:
 <5104D4DBC598D211B5FE0000F8FE7EB29C6C8E@mbtlipnt02.btlabs.bt.co.uk> 
 Subject: [PATCH 5.005_57] Lexical Warnings - mandatory warning are now
 default warnings

p4raw-id: //depot/perl@3640
---
 t/pragma/warn/taint | 56 ++++++++++++++++++++++++++++++++++++++---------------
 1 file changed, 40 insertions(+), 16 deletions(-)

(limited to 't/pragma/warn/taint')

diff --git a/t/pragma/warn/taint b/t/pragma/warn/taint
index 40fadd0913..17ab0423c6 100644
--- a/t/pragma/warn/taint
+++ b/t/pragma/warn/taint
@@ -1,25 +1,49 @@
-  taint.c TODO
+  taint.c AOK
 
-  Insecure %s%s while running setuid
-  Insecure %s%s while running setgid
   Insecure %s%s while running with -T switch
 
-
-  Insecure directory in %s%s while running setuid
-  Insecure directory in %s%s while running setgid
-  Insecure directory in %s%s while running with -T switch
-
-
-
 __END__
+-T
+--FILE-- abc
+def
+--FILE--
 # taint.c
-use warning 'misc' ;
-
+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
-use warning 'misc' ;
-
+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 warning 'taint' ;
+chdir $a ;
+print "xxx\n" ;
+no warning 'taint' ;
+chdir $a ;
+print "yyy\n" ;
+EXPECT
+Insecure dependency in chdir while running with -T switch at - line 6.
+xxx
+yyy
-- 
cgit v1.2.1