diff options
Diffstat (limited to 'lib/File/Find/t/taint.t')
-rw-r--r-- | lib/File/Find/t/taint.t | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/File/Find/t/taint.t b/lib/File/Find/t/taint.t index 2c76138144..cef13a1191 100644 --- 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; |