From: Abhijit Menon-Sen <ams@wiw.org>
Date: Mon, 11 Mar 2002 04:57:20 +0000 (+0000)
Subject:    A little commonsense is better than 1_compile.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=922e63eb2a10a42031c9a8efd75ba40829412af4;p=p5sagit%2Fp5-mst-13.2.git

   A little commonsense is better than 1_compile.

p4raw-id: //depot/perl@15167
---

diff --git a/lib/File/Find/t/find.t b/lib/File/Find/t/find.t
index 745c6ef..c281833 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 cef13a1..91fe8ee 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;