diff options
| author | Heiko Schlittermann (HS12-RIPE) <hs@schlittermann.de> | 2018-01-19 09:40:24 +0100 |
|---|---|---|
| committer | Heiko Schlittermann (HS12-RIPE) <hs@schlittermann.de> | 2018-01-27 23:01:23 +0100 |
| commit | cee3d4ab21959f97323db40c34e8a6b1dc12e3a6 (patch) | |
| tree | 77702af6f1f354fb939b0a8b5d9bfebf1d2ea9bc /test/src | |
| parent | f1fed05bfbcf83b7d504ea68d136c4a923d070ea (diff) | |
| download | exim4-cee3d4ab21959f97323db40c34e8a6b1dc12e3a6.tar.gz | |
Testsuite: locate.pl: do not try folders we do not have permissions for
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/locate.pl | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/test/src/locate.pl b/test/src/locate.pl index 6f752c137..2eb319cdd 100644 --- a/test/src/locate.pl +++ b/test/src/locate.pl @@ -1,4 +1,6 @@ #!/usr/bin/env perl + +use 5.010; use strict; use warnings; use File::Find; @@ -39,7 +41,8 @@ sub locate { 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 |