summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/diskdrake/smbnfs_gtk.pm2
-rw-r--r--perl-install/network/smb.pm2
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");
}