diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2001-11-30 06:48:44 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-30 20:19:37 +0000 |
| commit | 6d1277cd1ec95a7c72b64de008bcab85331ac9b4 (patch) | |
| tree | 9baed2fab06ffdd71190209089541dbbdb7b2d76 /t | |
| parent | 1badabf5775ad1f913e5633a50614330e53e904e (diff) | |
| download | perl-6d1277cd1ec95a7c72b64de008bcab85331ac9b4.tar.gz | |
Re: [ID 20011130.164] Not OK: perl v5.7.2 +DEVEL13363 on i686-linux-2.4.8-26mdk
Message-ID: <20011130114844.C1303@blackrider>
(replaces #13381)
p4raw-id: //depot/perl@13391
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/stat.t | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/t/op/stat.t b/t/op/stat.t index 86b2e8cf0e..57112369fc 100755 --- a/t/op/stat.t +++ b/t/op/stat.t @@ -180,12 +180,12 @@ if ($Is_MPE or $^O eq 'amigaos' or $Is_Dosish or $Is_Cygwin) { $cnt = $uid = 0; die "Can't run op/stat.t test 35 without pwd working" unless $cwd; -my @bin = grep {-d} ($^O eq 'machten' ? - qw(/usr/bin /bin) : - qw(/sbin /usr/sbin /bin /usr/bin)); +my @bin = grep {-d && -r && -x} ($^O eq 'machten' ? + qw(/usr/bin /bin) : + qw(/sbin /usr/sbin /bin /usr/bin)); unless (@bin) { print ("not ok 35\n"), goto tty_test; } for my $bin (@bin) { - opendir BIN, $bin or warn "Can't opendir $bin: $!"; + opendir BIN, $bin or die "Can't opendir $bin: $!"; while (defined($_ = readdir BIN)) { $_ = "$bin/$_"; $cnt++; |