diff options
| -rw-r--r-- | perl-install/authentication.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/authentication.pm b/perl-install/authentication.pm index b88d3231b..9b0f9d3be 100644 --- a/perl-install/authentication.pm +++ b/perl-install/authentication.pm @@ -863,13 +863,13 @@ sub pack_passwd { join(':', @$l{@etc_pass_fields}) . "\n"; } -sub add_cafile { +sub add_cafile() { my $file; my $in = interactive->vnew; $file = $in->ask_filename({ title => N("Select file") }) or return; } -sub auth { +sub auth() { my $in = interactive->vnew; $file = $in->ask_from('', N(" "), [ { label => N("Domain Windows for authentication : " , $authentication->{WINDOMAIN}) }, @@ -881,7 +881,7 @@ sub auth { } require fs::remote::smb; -sub list_domains { +sub list_domains() { my $smb = fs::remote::smb->new; my %domains; foreach my $server ($smb->find_servers) { |