From: Heiko Schlittermann (HS12-RIPE) <hs@schlittermann.de>
Date: Wed, 23 Nov 2016 15:04:24 +0000 (+0100)
Subject: Testsuite: fix warning
X-Git-Tag: exim-4_88_RC6~23
X-Git-Url: https://git.exim.org/users/jgh/exim.git/commitdiff_plain/c9eab729ed1dfc555a784aa98d4e58f004ef1e42

Testsuite: fix warning
---

diff --git a/test/lib/Exim/Runtest.pm b/test/lib/Exim/Runtest.pm
index ce91084f4..8d22544bf 100644
--- a/test/lib/Exim/Runtest.pm
+++ b/test/lib/Exim/Runtest.pm
@@ -64,8 +64,10 @@ sub dynamic_socket {
 sub exim_binary {
 
     # two simple cases, absolute path or relative path and executable
-    return @_ if $_[0] =~ /^\//;
-    return Cwd::abs_path(shift), @_ if -x $_[0];
+    if (@_) {
+        return @_ if $_[0] =~ /^\//;
+        return Cwd::abs_path(shift), @_ if -x $_[0];
+    }
 
     # so we're still here, if the simple approach didn't help.