diff options
Diffstat (limited to 'perl-install/network/smb.pm')
| -rw-r--r-- | perl-install/network/smb.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/network/smb.pm b/perl-install/network/smb.pm index abf742800..751dbbc4a 100644 --- a/perl-install/network/smb.pm +++ b/perl-install/network/smb.pm @@ -41,7 +41,7 @@ sub smbclient { my $ip = $server->{ip} ? "-I $server->{ip}" : ''; my $group = $server->{group} ? " -W $server->{group}" : ''; - my $U = $server->{username} ? "$server->{domain}/$server->{username}%$server->{password}" : '%'; + my $U = $server->{username} ? sprintf("%s/%s%%%s", @$server{'domain', 'username', 'password'}) : '%'; `smbclient -U $U -L $name $ip$group`; } |