From 1c71fda8b71e1e2befad768906b8b5e2465a9ca6 Mon Sep 17 00:00:00 2001
From: Pascal Terjan <pterjan@mandriva.org>
Date: Mon, 27 Jul 2009 06:26:03 +0000
Subject: do not display nmblookup usage when there is no samba server

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

(limited to 'perl-install')

diff --git a/perl-install/NEWS b/perl-install/NEWS
index bcb1cfa01..51465f221 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,3 +1,4 @@
+- do not display nmblookup usage when there is no samba server
 - draksound
   o handle udev-detect module too (new PA)
 
diff --git a/perl-install/fs/remote/smb.pm b/perl-install/fs/remote/smb.pm
index 84a58318a..acdf0d7cf 100644
--- a/perl-install/fs/remote/smb.pm
+++ b/perl-install/fs/remote/smb.pm
@@ -57,6 +57,7 @@ sub find_servers {
     s/\s.*\n// foreach @l;
     require network::network;
     my @servers = grep { network::network::is_ip($_) } @l;
+    return unless @servers;
     my %servers;
     $servers{$_}{ip} = $_ foreach @servers;
     my ($ip, $browse);
-- 
cgit v1.2.1