diff options
| author | Olivier Blin <oblin@mandriva.com> | 2008-06-12 18:34:09 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.com> | 2008-06-12 18:34:09 +0000 |
| commit | ae850e5bd1a94d4f6557fea4322592e35037e1f3 (patch) | |
| tree | d51088a320a8ad40daf955945830cbdbb7957431 /perl-install | |
| parent | 25ce7418a15ca35f524f83cfccec84c12f7abdfa (diff) | |
| download | drakx-ae850e5bd1a94d4f6557fea4322592e35037e1f3.tar drakx-ae850e5bd1a94d4f6557fea4322592e35037e1f3.tar.gz drakx-ae850e5bd1a94d4f6557fea4322592e35037e1f3.tar.bz2 drakx-ae850e5bd1a94d4f6557fea4322592e35037e1f3.tar.xz drakx-ae850e5bd1a94d4f6557fea4322592e35037e1f3.zip | |
fix matching domain
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/authentication.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/authentication.pm b/perl-install/authentication.pm index ef9da31e8..4de761c48 100644 --- a/perl-install/authentication.pm +++ b/perl-install/authentication.pm @@ -892,7 +892,7 @@ sub get_server_for_domain { my $smb = fs::remote::smb->new; my %domains; foreach my $server ($smb->find_servers) { - return $server->{name} if $server->{group} == @_[0]; + return $server->{name} if $server->{group} == $_[0]; } } |