diff options
| -rw-r--r-- | perl-install/diskdrake/smbnfs_gtk.pm | 2 | ||||
| -rw-r--r-- | perl-install/network/smb.pm | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/diskdrake/smbnfs_gtk.pm b/perl-install/diskdrake/smbnfs_gtk.pm index 39a81ee73..8c414f9d5 100644 --- a/perl-install/diskdrake/smbnfs_gtk.pm +++ b/perl-install/diskdrake/smbnfs_gtk.pm @@ -162,7 +162,7 @@ sub import_tree { $in->ask_warn('', N("Can't login using username %s (bad password?)", $server->{username})); network::smb::remove_bad_credentials($server); } else { - if (my @l = network::smb::authentifications_available($server)) { + if (my @l = network::smb::authentications_available($server)) { my $user = $in->ask_from_list_(N("Domain Authentication Required"), N("Which username"), [ @l, N_("Another one") ]) or return; if ($user ne 'Another one') { diff --git a/perl-install/network/smb.pm b/perl-install/network/smb.pm index d8c3024fd..941463c65 100644 --- a/perl-install/network/smb.pm +++ b/perl-install/network/smb.pm @@ -100,7 +100,7 @@ sub find_exports { @l; } -sub authentifications_available { +sub authentications_available { my ($server) = @_; map { if_(/^auth.\Q$server->{name}.\E(.*)/, $1) } all("/etc/samba"); } |