summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.com>2008-06-12 18:34:09 +0000
committerOlivier Blin <oblin@mandriva.com>2008-06-12 18:34:09 +0000
commitae850e5bd1a94d4f6557fea4322592e35037e1f3 (patch)
treed51088a320a8ad40daf955945830cbdbb7957431 /perl-install
parent25ce7418a15ca35f524f83cfccec84c12f7abdfa (diff)
downloaddrakx-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.pm2
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];
}
}