diff options
author | Heiko Schlittermann (HS12-RIPE) <hs@schlittermann.de> | 2016-11-23 16:04:24 +0100 |
---|---|---|
committer | Heiko Schlittermann (HS12-RIPE) <hs@schlittermann.de> | 2016-11-23 16:48:51 +0100 |
commit | c9eab729ed1dfc555a784aa98d4e58f004ef1e42 (patch) | |
tree | ee563d0f66c1ecfdf2ddbc9445feee08ea8ed842 | |
parent | 29f4bf00aa25030ba3454be2e318a0e7ef543a7a (diff) |
Testsuite: fix warning
-rw-r--r-- | test/lib/Exim/Runtest.pm | 6 |
1 files changed, 4 insertions, 2 deletions
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. |