use empty prototypes

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) {