From 3a78042f848706368b9e2f463edec138eec74cda Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 30 Jun 2004 08:59:16 +0000
Subject: shut up "smbclient -L"

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

(limited to 'perl-install/network')

diff --git a/perl-install/network/smb.pm b/perl-install/network/smb.pm
index 941463c65..00b676725 100644
--- a/perl-install/network/smb.pm
+++ b/perl-install/network/smb.pm
@@ -42,7 +42,7 @@ sub smbclient {
     my $group = $server->{group} ? " -W $server->{group}" : '';
 
     my $U = $server->{username} ? sprintf("%s/%s%%%s", @$server{'domain', 'username', 'password'}) : '%';
-    `smbclient -U $U -L $name $ip$group`;
+    `smbclient -U $U -L $name $ip$group 2>/dev/null`;
 }
 
 sub find_servers {
-- 
cgit v1.2.1