From 773682d3b302a347cd4411ac8610a6eaaf7e8367 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Thu, 12 Jun 2008 18:26:03 +0000
Subject: use empty prototypes

---
 perl-install/authentication.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'perl-install/authentication.pm')

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) {
-- 
cgit v1.2.1