From ae850e5bd1a94d4f6557fea4322592e35037e1f3 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Thu, 12 Jun 2008 18:34:09 +0000
Subject: fix matching domain

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

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];
     }
 }
 
-- 
cgit v1.2.1