From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 9 Mar 2001 14:59:02 +0000 (+0000)
Subject: Add /sbin and /usr/sbin to the list of directories scanned
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ad52c9ebd1217cdd30d8a5568b46bfab6236a484;p=p5sagit%2Fp5-mst-13.2.git

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
---

diff --git a/t/op/stat.t b/t/op/stat.t
index 1317ba8..6c508eb 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)) {