diff options
| -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]; } } |