summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.com>2008-06-12 18:26:03 +0000
committerOlivier Blin <oblin@mandriva.com>2008-06-12 18:26:03 +0000
commit773682d3b302a347cd4411ac8610a6eaaf7e8367 (patch)
treeb9538c08641d251e174fe47c02b6f4f93fa04ed4
parent6f98e2f23dda0973403d93fe46f0dab86308fba7 (diff)
downloaddrakx-773682d3b302a347cd4411ac8610a6eaaf7e8367.tar
drakx-773682d3b302a347cd4411ac8610a6eaaf7e8367.tar.gz
drakx-773682d3b302a347cd4411ac8610a6eaaf7e8367.tar.bz2
drakx-773682d3b302a347cd4411ac8610a6eaaf7e8367.tar.xz
drakx-773682d3b302a347cd4411ac8610a6eaaf7e8367.zip
use empty prototypes
-rw-r--r--perl-install/authentication.pm6
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) {