diff options
| author | Olivier Blin <oblin@mandriva.com> | 2008-06-12 18:26:03 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.com> | 2008-06-12 18:26:03 +0000 |
| commit | 773682d3b302a347cd4411ac8610a6eaaf7e8367 (patch) | |
| tree | b9538c08641d251e174fe47c02b6f4f93fa04ed4 /perl-install | |
| parent | 6f98e2f23dda0973403d93fe46f0dab86308fba7 (diff) | |
| download | drakx-773682d3b302a347cd4411ac8610a6eaaf7e8367.tar drakx-773682d3b302a347cd4411ac8610a6eaaf7e8367.tar.gz drakx-773682d3b302a347cd4411ac8610a6eaaf7e8367.tar.bz2 drakx-773682d3b302a347cd4411ac8610a6eaaf7e8367.tar.xz drakx-773682d3b302a347cd4411ac8610a6eaaf7e8367.zip | |
use empty prototypes
Diffstat (limited to 'perl-install')
| -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) { |