A little commonsense is better than 1_compile.

p4raw-id: //depot/perl@15167

2 files changed, 6 insertions, 6 deletions

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;