diff options
| -rw-r--r-- | perl-install/NEWS | 1 | ||||
| -rw-r--r-- | perl-install/fs/remote/smb.pm | 1 |
2 files changed, 2 insertions, 0 deletions
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); |