diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-03-09 14:59:02 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-03-09 14:59:02 +0000 |
| commit | ad52c9ebd1217cdd30d8a5568b46bfab6236a484 (patch) | |
| tree | f4e4e73b824490a0d30a4dedda8a15619dbfb4f3 /t | |
| parent | fc6a272d740c370b8c0a1a88a6649b9ea7ee4c21 (diff) | |
| download | perl-ad52c9ebd1217cdd30d8a5568b46bfab6236a484.tar.gz | |
Add /sbin and /usr/sbin to the list of directories scanned
for setuid programs. Takes care of bug id 20010309.003.
p4raw-id: //depot/perl@9089
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/stat.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/t/op/stat.t b/t/op/stat.t index 1317ba8e7c..6c508ebddd 100755 --- a/t/op/stat.t +++ b/t/op/stat.t @@ -178,7 +178,8 @@ if ($^O eq 'mpeix' 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; -($bin) = grep {-d} ($^O eq 'machten' ? qw(/usr/bin /bin) : qw(/bin /usr/bin)) +($bin) = grep {-d} ($^O eq 'machten' ? qw(/usr/bin /bin) : + qw(/sbin /usr/sbin /bin /usr/bin)) or print ("not ok 35\n"), goto tty_test; opendir BIN, $bin or die "Can't opendir $bin: $!"; while (defined($_ = readdir BIN)) { |