Change 15167: A little commonsense is better than 1_compile.

[Abhijit Menon-Sen]

Change 15167 by ams@lustre on 2002/03/11 04:57:20

           A little commonsense is better than 1_compile.

Affected files ...

.... //depot/perl/lib/File/Find/t/find.t#9 edit
.... //depot/perl/lib/File/Find/t/taint.t#10 edit

Differences ...

==== //depot/perl/lib/File/Find/t/find.t#9 (text) ====
Index: perl/lib/File/Find/t/find.t
--- perl/lib/File/Find/t/find.t.~1~     Sun Mar 10 22:00:07 2002
+++ perl/lib/File/Find/t/find.t Sun Mar 10 22:00:07 2002
@@ -51,10 +51,10 @@
 
 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);
 
 

==== //depot/perl/lib/File/Find/t/taint.t#10 (text) ====
Index: perl/lib/File/Find/t/taint.t
--- perl/lib/File/Find/t/taint.t.~1~    Sun Mar 10 22:00:07 2002
+++ perl/lib/File/Find/t/taint.t        Sun Mar 10 22:00:07 2002
@@ -49,16 +49,16 @@
 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;
End of Patch.