Subject: [PATCH] Hash::Util & restricted hash touch up, part 1

[p5sagit/p5-mst-13.2.git] / lib / File / Find / t / taint.t

diff --git a/lib/File/Find/t/taint.t b/lib/File/Find/t/taint.t
index 2c76138..cef13a1 100644 (file)
--- a/lib/File/Find/t/taint.t
+++ b/lib/File/Find/t/taint.t
@@ -49,16 +49,16 @@ use Cwd;
 cleanup();
 
 my $found;
-find({wanted => sub { $found = 1 if ($_ eq 'access.t') },
+find({wanted => sub { $found = 1 if ($_ eq '1_compile.t') },
                untaint => 1, untaint_pattern => qr|^(.+)$|}, File::Spec->curdir);
 
-ok($found, 'access.t found');
+ok($found, '1_compile.t found');
 $found = 0;
 
-finddepth({wanted => sub { $found = 1 if $_ eq 'access.t'; },
+finddepth({wanted => sub { $found = 1 if $_ eq '1_compile.t'; },
            untaint => 1, untaint_pattern => qr|^(.+)$|}, File::Spec->curdir);
 
-ok($found, 'access.t found again');
+ok($found, '1_compile.t found again');
 
 my $case = 2;
 my $FastFileTests_OK = 0;