Change 13381 by jhi@alpha on 2001/11/30 13:23:06
Subject: [ID 20011130.164] Not OK: perl v5.7.2 +DEVEL13363 on i686-linux
2.4.8-26mdk
From: [EMAIL PROTECTED]
Date: 30 Nov 2001 11:41:53 -0000
Message-Id: <[EMAIL PROTECTED]>
No need to die if we have high-paranoia (non-chdirable)
system directories.
Affected files ...
.... //depot/perl/t/op/stat.t#33 edit
Differences ...
==== //depot/perl/t/op/stat.t#33 (xtext) ====
Index: perl/t/op/stat.t
--- perl/t/op/stat.t.~1~ Fri Nov 30 06:30:05 2001
+++ perl/t/op/stat.t Fri Nov 30 06:30:05 2001
@@ -185,7 +185,7 @@
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++;
End of Patch.
