summaryrefslogtreecommitdiffstats
path: root/perl-install/fs/remote/smb.pm
diff options
context:
space:
mode:
authorPascal Terjan <pterjan@mandriva.org>2009-07-27 06:26:03 +0000
committerPascal Terjan <pterjan@mandriva.org>2009-07-27 06:26:03 +0000
commit1c71fda8b71e1e2befad768906b8b5e2465a9ca6 (patch)
treea8c24363bb39d65e19c5076f9c457b78706b97b9 /perl-install/fs/remote/smb.pm
parent3ee8b0b2c54ff6f732fb607ac9dd204cd4c6e678 (diff)
downloaddrakx-1c71fda8b71e1e2befad768906b8b5e2465a9ca6.tar
drakx-1c71fda8b71e1e2befad768906b8b5e2465a9ca6.tar.gz
drakx-1c71fda8b71e1e2befad768906b8b5e2465a9ca6.tar.bz2
drakx-1c71fda8b71e1e2befad768906b8b5e2465a9ca6.tar.xz
drakx-1c71fda8b71e1e2befad768906b8b5e2465a9ca6.zip
do not display nmblookup usage when there is no samba server
Diffstat (limited to 'perl-install/fs/remote/smb.pm')
-rw-r--r--perl-install/fs/remote/smb.pm1
1 files changed, 1 insertions, 0 deletions
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);