diff options
| author | Larry Wall <lwall@netlabs.com> | 1992-06-08 04:52:11 +0000 |
|---|---|---|
| committer | Larry Wall <lwall@netlabs.com> | 1992-06-08 04:52:11 +0000 |
| commit | 32c2e4fbb7ba898d9e58e8d2292dd45b8692070d (patch) | |
| tree | 9ad3885f2a4a8d28c3729e34af44b85e9ad124bf /t/op | |
| parent | 83025b217962b0369a18edad3fa14dc1087f3c2a (diff) | |
| download | perl-32c2e4fbb7ba898d9e58e8d2292dd45b8692070d.tar.gz | |
perl 4.0 patch 30: patch #20, continued
See patch #20.
Diffstat (limited to 't/op')
| -rw-r--r-- | t/op/readdir.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/op/readdir.t b/t/op/readdir.t index 8125bd4190..18006991cd 100644 --- a/t/op/readdir.t +++ b/t/op/readdir.t @@ -6,13 +6,13 @@ if ($@) { print "1..0\n"; exit; } print "1..3\n"; if (opendir(OP, "op")) { print "ok 1\n"; } else { print "not ok 1\n"; } -@D = grep(/^[^\.]/, readdir(OP)); +@D = grep(/^[^\.].*\.t$/, readdir(OP)); closedir(OP); if (@D > 20 && @D < 100) { print "ok 2\n"; } else { print "not ok 2\n"; } @R = sort @D; -@G = <op/*>; +@G = <op/*.t>; while (@R && @G && "op/".$R[0] eq $G[0]) { shift(@R); shift(@G); |