From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Fri, 22 Jun 2001 21:24:51 +0000 (+0000)
Subject: Back out debug in taint.t
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=368417138e099f70714a4b8804e7d16d31d19316;p=p5sagit%2Fp5-mst-13.2.git

Back out debug in taint.t

p4raw-id: //depot/perlio@10843
---

diff --git a/lib/File/Find/taint.t b/lib/File/Find/taint.t
index 65f6f24..fb3dfc2 100644
--- a/lib/File/Find/taint.t
+++ b/lib/File/Find/taint.t
@@ -242,7 +242,7 @@ sub file_path_name {
 
 
 
-MkDir( dir_path('for_find'), 0777 );
+MkDir( dir_path('for_find'), 0770 );
 CheckDie(chdir( dir_path('for_find')));
 
 $cwd = cwd(); # save cwd
@@ -374,7 +374,6 @@ if ( $symlink_exists ) {
     eval {File::Find::find( {wanted => \&simple_wanted, follow => 1},
 			    topdir('fa') );};
 
-    $^D = 8;
     Check( $@ =~ m|Insecure dependency| );
     chdir($cwd_untainted);