From: Michael G. Schwern <schwern@pobox.com>
Date: Fri, 30 Nov 2001 11:48:44 +0000 (-0500)
Subject: Re: [ID 20011130.164] Not OK: perl v5.7.2 +DEVEL13363 on i686-linux-2.4.8-26mdk
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6d1277cd1ec95a7c72b64de008bcab85331ac9b4;p=p5sagit%2Fp5-mst-13.2.git

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
---

diff --git a/t/op/stat.t b/t/op/stat.t
index 86b2e8c..5711236 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++;