diff options
| author | jpeacock@dsl092-147-156.wdc1.dsl.speakeasy.net <jpeacock@dsl092-147-156.wdc1.dsl.speakeasy.net> | 2001-11-30 11:41:53 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-30 13:23:06 +0000 |
| commit | 9000ce8c302c8d13490096392c4b2e8f21f767eb (patch) | |
| tree | 3e1ac45e9f9dd20969be963e1c4021f991c4b8c2 /t | |
| parent | 1d11c889c9f2aa4165f7828fe119dbbd463be4b9 (diff) | |
| download | perl-9000ce8c302c8d13490096392c4b2e8f21f767eb.tar.gz | |
(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
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/stat.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/op/stat.t b/t/op/stat.t index 8d0ca19bc0..86b2e8cf0e 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++; |