From 40e9fab046aeb073b1f7caffea541a090d24606a Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 13 Feb 2002 13:05:59 +0000
Subject: $server->{ip} is no more mandatory

---
 perl-install/network/smb.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl-install/network/smb.pm')

diff --git a/perl-install/network/smb.pm b/perl-install/network/smb.pm
index 350399797..2cb8ce9ae 100644
--- a/perl-install/network/smb.pm
+++ b/perl-install/network/smb.pm
@@ -44,12 +44,13 @@ sub find_exports {
     my ($server) = @_;
     my @l;
     my $name  = $server->{name} || $server->{ip};
+    my $ip    = $server->{ip} ? "-I $server->{ip}" : '';
     my $group = $server->{group} ? " -W $server->{group}" : '';
 
     # WARNING: using smbclient -L is ugly. It can't handle more than 15
     # characters shared names
 
-    foreach (`smbclient -U% -L $name -I $server->{ip}$group`) {
+    foreach (`smbclient -U% -L $name $ip$group`) {
 	chomp;
 	s/^\t//;
 	my ($name, $type, $comment) = unpack "A15 A10 A*", $_;
-- 
cgit v1.2.1