diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-08-10 08:38:39 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-08-10 08:38:39 +0000 |
| commit | 4e34385f1add67f206da4307d1e033b6827d3720 (patch) | |
| tree | 09e2f407501a318ec16bfdbf3657b9954568b74d /t/op/readdir.t | |
| parent | 41df20d4b7a079e9d0de0aef397581453ab78eff (diff) | |
| download | perl-4e34385f1add67f206da4307d1e033b6827d3720.tar.gz | |
warn is a macro, avoid using at a variable to avoid warnings
in some configurations; readdir.t is too conservative in
estimating number of *.t's
p4raw-id: //depot/perl@6562
Diffstat (limited to 't/op/readdir.t')
| -rwxr-xr-x | t/op/readdir.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/op/readdir.t b/t/op/readdir.t index d101c2f622..9da560c669 100755 --- a/t/op/readdir.t +++ b/t/op/readdir.t @@ -20,7 +20,7 @@ if (opendir(OP, "op")) { print "ok 1\n"; } else { print "not ok 1\n"; } @D = grep(/^[^\.].*\.t$/i, readdir(OP)); closedir(OP); -if (@D > 20 && @D < 100) { print "ok 2\n"; } else { print "not ok 2\n"; } +if (@D > 20 && @D < 150) { print "ok 2\n"; } else { print "not ok 2\n"; } @R = sort @D; @G = sort <op/*.t>; |