Change 13391 by jhi@alpha on 2001/11/30 20:19:37
Subject: Re: [ID 20011130.164] Not OK: perl v5.7.2 +DEVEL13363 on
i686-linux-2.4.8-26mdk
From: Michael G Schwern <[EMAIL PROTECTED]>
Date: Fri, 30 Nov 2001 11:48:44 -0500
Message-ID: <20011130114844.C1303@blackrider>
(replaces #13381)
Affected files ...
.... //depot/perl/t/op/stat.t#34 edit
Differences ...
==== //depot/perl/t/op/stat.t#34 (xtext) ====
Index: perl/t/op/stat.t
--- perl/t/op/stat.t.~1~ Fri Nov 30 13:30:05 2001
+++ perl/t/op/stat.t Fri Nov 30 13:30:05 2001
@@ -180,12 +180,12 @@
$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++;
End of Patch.
