diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-06-22 21:24:51 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-06-22 21:24:51 +0000 |
| commit | 368417138e099f70714a4b8804e7d16d31d19316 (patch) | |
| tree | aa4183f23393ae213474b0313ca0118acf59ea50 /lib/File | |
| parent | 004cc5080f573783a512f0d3ef678c4e019ac166 (diff) | |
| download | perl-368417138e099f70714a4b8804e7d16d31d19316.tar.gz | |
Back out debug in taint.t
p4raw-id: //depot/perlio@10843
Diffstat (limited to 'lib/File')
| -rw-r--r-- | lib/File/Find/taint.t | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lib/File/Find/taint.t b/lib/File/Find/taint.t index 65f6f247c3..fb3dfc2751 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); |