From: jpeacock@dsl092-147-156.wdc1.dsl.speakeasy.net <jpeacock@dsl092-147-156.wdc1.dsl.speakeasy.net>
Date: Fri, 30 Nov 2001 11:41:53 +0000 (+0000)
Subject: (replaced by #13391)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9000ce8c302c8d13490096392c4b2e8f21f767eb;p=p5sagit%2Fp5-mst-13.2.git

(replaced by #13391)

Subject: [ID 20011130.164] Not OK: perl v5.7.2 +DEVEL13363 on i686-linux 2.4.8-26mdk
Message-Id: <20011130114153.24600.qmail@dsl092-147-156.wdc1.dsl.speakeasy.net>

No need to die if we have high-paranoia (non-chdirable)
system directories.

p4raw-id: //depot/perl@13381
---

diff --git a/t/op/stat.t b/t/op/stat.t
index 8d0ca19..86b2e8c 100755
--- a/t/op/stat.t
+++ b/t/op/stat.t
@@ -185,7 +185,7 @@ my @bin = grep {-d} ($^O eq 'machten' ?
 		     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 die "Can't opendir $bin: $!";
+    opendir BIN, $bin or warn "Can't opendir $bin: $!";
     while (defined($_ = readdir BIN)) {
         $_ = "$bin/$_";
         $cnt++;