From 9ed00ebd0c5e755e6795a6d94305b26094468fdf Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Thu, 8 Jan 2009 10:55:02 +0000
Subject: lookup for Samba master browsers too (backport from trunk)

---
 perl-install/NEWS             | 3 +++
 perl-install/fs/remote/smb.pm | 2 +-
 2 files changed, 4 insertions(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/NEWS b/perl-install/NEWS
index 550878533..05a94791c 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,3 +1,6 @@
+- diskdrake:
+  o lookup for Samba master browsers too
+
 Version 11.71.4 - 8 January 2009
 
 - diskdrake:
diff --git a/perl-install/fs/remote/smb.pm b/perl-install/fs/remote/smb.pm
index a406b8253..378aa6a1e 100644
--- a/perl-install/fs/remote/smb.pm
+++ b/perl-install/fs/remote/smb.pm
@@ -53,7 +53,7 @@ sub smbclient {
 }
 
 sub find_servers {
-    my (undef, @l) = `nmblookup "*"`;
+    my (undef, @l) = `nmblookup "*"; nmblookup -M -- -`;
     s/\s.*\n// foreach @l;
     require network::network;
     my @servers = grep { network::network::is_ip($_) } @l;
-- 
cgit v1.2.1