From: Heiko Schlittermann (HS12-RIPE) <hs@schlittermann.de>
Date: Fri, 19 Jan 2018 08:40:24 +0000 (+0100)
Subject: Testsuite: locate.pl: do not try folders we do not have permissions for
X-Git-Tag: exim-4_91_RC1~87
X-Git-Url: https://git.exim.org/users/heiko/exim.git/commitdiff_plain/cee3d4ab21959f97323db40c34e8a6b1dc12e3a6

Testsuite: locate.pl: do not try folders we do not have permissions for
---

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