git://git.exim.org
/
exim.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Testsuite: more munging for Alpine Linux
[exim.git]
/
test
/
src
/
locate.pl
diff --git
a/test/src/locate.pl
b/test/src/locate.pl
index 6f752c13794c15d78f90c6492efdd0ab1bf7f3ab..ba74e030b60fdc0fb2ed1b760362aaffe8b4acec 100644
(file)
--- a/
test/src/locate.pl
+++ b/
test/src/locate.pl
@@
-1,4
+1,6
@@
#!/usr/bin/env perl
#!/usr/bin/env perl
+
+use 5.010;
use strict;
use warnings;
use File::Find;
use strict;
use warnings;
use File::Find;
@@
-8,6
+10,7
@@
my @dirs = grep { /^\// && -d } split(/:/, $ENV{PATH}), qw(
/bin
/usr/bin
/usr/sbin
/bin
/usr/bin
/usr/sbin
+ /usr/lib
/usr/libexec
/usr/local/bin
/usr/local/sbin
/usr/libexec
/usr/local/bin
/usr/local/sbin
@@
-39,7
+42,8
@@
sub locate {
eval {
find(
sub {
eval {
find(
sub {
- return unless $tool eq $_ and -x $_ and -f _;
+ return $File::Find::prune = 1 unless -r -x -r;
+ return unless $tool eq $_ and -x and -f _;
die { found => $File::Find::name };
},
@dirs
die { found => $File::Find::name };
},
@dirs