selftest: Fix selftest to check ADS functionalty again

[ira/wip.git] / selftest / target / Samba3.pm

diff --git a/selftest/target/Samba3.pm b/selftest/target/Samba3.pm
index e8a03e71dc14982f7715658232a709e300478bcd..269601470ed76368e07c09bd59222baef4b98db5 100755 (executable)
--- a/selftest/target/Samba3.pm
+++ b/selftest/target/Samba3.pm
@@ -12,15 +12,17 @@ use POSIX;
 use target::Samba;
 
 sub have_ads($) {
-    my ($self);
+        my ($self) = @_;
        my $found_ads = 0;
-       my $smbd_build_options = Samba::bindir_path($self, "smbd") . " -b";
-       my @build_options = `$smbd_build_options`;
-       foreach my $option (@build_options) {
-               if ($option =~ "WITH_ADS") {
-                      $found_ads = 1;
-               }
-       }
+        my $smbd_build_options = Samba::bindir_path($self, "smbd") . " -b|";
+        open(IN, $smbd_build_options) or die("Unable to run $smbd_build_options: $!");
+
+        while (<IN>) {
+                if (/WITH_ADS/) {
+                       $found_ads = 1;
+                }
+        }
+       close IN;
 
        # If we were not built with ADS support, pretend we were never even available
        return $found_ads;