This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove tests of $File::Find::untaint_pattern.
authorJames E Keenan <jkeenan@cpan.org>
Sat, 7 Dec 2013 13:45:16 +0000 (14:45 +0100)
committerJames E Keenan <jkeenan@cpan.org>
Sat, 7 Dec 2013 13:45:16 +0000 (14:45 +0100)
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

ext/File-Find/t/taint.t

index a32d10f..d126e69 100644 (file)
@@ -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 = ();