From ced9efddf499e45657888af153538e291b5bfa49 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 4 Dec 2001 16:58:33 +0000
Subject: cleaner smbclient call

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

(limited to 'perl-install/network')

diff --git a/perl-install/network/smb.pm b/perl-install/network/smb.pm
index a9f8907ce..02c107bd1 100644
--- a/perl-install/network/smb.pm
+++ b/perl-install/network/smb.pm
@@ -35,13 +35,13 @@ sub find_servers() {
 sub find_exports {
     my ($server) = @_;
     my @l;
-    my $ip    = $server->{ip}    ? " -I $server->{ip}"  : '';
+    my $name  = $server->{name} || $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 $server->{name}$ip$group`) {
+    foreach (`smbclient -U% -L $name -I $server->{ip}$group`) {
 	chomp;
 	s/^\t//;
 	my ($name, $type, $comment) = unpack "A15 A10 A*", $_;
-- 
cgit v1.2.1