From 922e63eb2a10a42031c9a8efd75ba40829412af4 Mon Sep 17 00:00:00 2001 From: Abhijit Menon-Sen Date: Mon, 11 Mar 2002 04:57:20 +0000 Subject: A little commonsense is better than 1_compile. p4raw-id: //depot/perl@15167 --- lib/File/Find/t/find.t | 4 ++-- lib/File/Find/t/taint.t | 8 ++++---- 2 files changed, 6 insertions(+), 6 deletions(-) (limited to 'lib/File') diff --git a/lib/File/Find/t/find.t b/lib/File/Find/t/find.t index 745c6efe57..c28183348f 100644 --- a/lib/File/Find/t/find.t +++ b/lib/File/Find/t/find.t @@ -51,10 +51,10 @@ BEGIN { cleanup(); -find({wanted => sub { print "ok 1\n" if $_ eq '1_compile.t'; } }, +find({wanted => sub { print "ok 1\n" if $_ eq 'commonsense.t'; } }, File::Spec->curdir); -finddepth({wanted => sub { print "ok 2\n" if $_ eq '1_compile.t'; } }, +finddepth({wanted => sub { print "ok 2\n" if $_ eq 'commonsense.t'; } }, File::Spec->curdir); diff --git a/lib/File/Find/t/taint.t b/lib/File/Find/t/taint.t index cef13a1191..91fe8ee9d8 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 '1_compile.t') }, +find({wanted => sub { $found = 1 if ($_ eq 'commonsense.t') }, untaint => 1, untaint_pattern => qr|^(.+)$|}, File::Spec->curdir); -ok($found, '1_compile.t found'); +ok($found, 'commonsense.t found'); $found = 0; -finddepth({wanted => sub { $found = 1 if $_ eq '1_compile.t'; }, +finddepth({wanted => sub { $found = 1 if $_ eq 'commonsense.t'; }, untaint => 1, untaint_pattern => qr|^(.+)$|}, File::Spec->curdir); -ok($found, '1_compile.t found again'); +ok($found, 'commonsense.t found again'); my $case = 2; my $FastFileTests_OK = 0; -- cgit v1.2.1