Remove tests of $File::Find::untaint_pattern.

This in effect reverts commit 5ea8618bf5cf20c62d2ccca6aca10d97e0945b89.
The effects of this package variable are not yet well enough understood to
write tests that pass consistently.  The block of tests removed was failing on
Win32 in all situations and on Linux in some.

For: RT #120711

diff --git a/ext/File-Find/t/taint.t b/ext/File-Find/t/taint.t
index a32d10f18c92de6345d6fbc423eb89c0c8aaf650..d126e69c597bc7c7604b7d2cb7572e1636959844 100644 (file)
--- a/ext/File-Find/t/taint.t
+++ b/ext/File-Find/t/taint.t
@@ -4,7 +4,7 @@ use Test::More;
 BEGIN {
     plan(
         ${^TAINT}
-        ? (tests => 54)
+        ? (tests => 45)
         : (skip_all => "A perl without taint support") 
     );
 }
@@ -203,31 +203,6 @@ File::Find::find( {wanted => \&wanted_File_Dir_prune, untaint => 1,
 
 is(scalar keys %Expect_File, 0, 'Found all expected files');
 
-{
-    %Expect_File = (File::Spec->curdir => 1, file_path('fsl') =>
-                    1,file_path('fa_ord') => 1, file_path('fab') => 1,
-                    file_path('fab_ord') => 1, file_path('faba') => 1,
-                    file_path('faa') => 1, file_path('faa_ord') => 1);
-    delete $Expect_File{ file_path('fsl') } unless $symlink_exists;
-    %Expect_Name = ();
-
-    %Expect_Dir = ( dir_path('fa') => 1, dir_path('faa') => 1,
-                    dir_path('fab') => 1, dir_path('faba') => 1,
-                    dir_path('fb') => 1, dir_path('fba') => 1);
-
-    delete @Expect_Dir{ dir_path('fb'), dir_path('fba') } unless $symlink_exists;
-    local $File::Find::untaint_pattern = qr|^([@\w./\-+]+)$|;
-    File::Find::find(
-        {
-            wanted => \&wanted_File_Dir_prune,
-            untaint => 1,
-        },
-        topdir('fa')
-    );
-    is(scalar keys %Expect_File, 0,
-        'Explicitly defined $File::Find::untaint_pattern: Found all expected files');
-}
-
 # don't untaint at all, should die
 %Expect_File = ();
 %Expect_Name = ();