From c5ac1412e3e7edbbd3a5dfc0cdeff71b11660e2a Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Wed, 7 Jan 2009 19:05:33 +0000 Subject: lookup for Samba master browsers too --- perl-install/NEWS | 2 ++ perl-install/fs/remote/smb.pm | 2 +- 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/perl-install/NEWS b/perl-install/NEWS index 771e56f6b..088a23a85 100644 --- a/perl-install/NEWS +++ b/perl-install/NEWS @@ -52,6 +52,8 @@ Version 11.72 - 9 December 2008 * try harder to find duplicates - ugtk2: o allow showing Skip button instead of Cancel in wizards +- diskdrake: + o lookup for Samba master browsers too Version 11.71 - 6 November 2008 diff --git a/perl-install/fs/remote/smb.pm b/perl-install/fs/remote/smb.pm index 7757eeb3f..1399d2f62 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