selftest: Fix Samba::bindir_path() with a valid directory.

Signed-off-by: Andreas Schneider <asn@samba.org>
Reviewed-by: Guenther Deschner <gd@samba.org>

diff --git a/selftest/target/Samba.pm b/selftest/target/Samba.pm
index 9f3e6ec38960d620b6c2ca62d23ed4309f157dd3..f1c4055feb63c7c6102329cec5e24e3ec985058d 100644 (file)
--- a/selftest/target/Samba.pm
+++ b/selftest/target/Samba.pm
@@ -57,7 +57,7 @@ sub bindir_path($$) {
 
        my $valpath = "$object->{bindir}/$path";
 
 
        my $valpath = "$object->{bindir}/$path";
 

-       return $valpath if (-f $valpath);
+       return $valpath if (-f $valpath or -d $valpath);

        return $path;
 }
 
        return $path;
 }