From e05ddb281beb452808a0f3669c93c907acf1fa77 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 26 May 2003 09:13:34 +0000
Subject: - methods with no argument are not functions with no argument! -
 perl_checker fixes

---
 perl-install/interactive.pm      | 10 +++++-----
 perl-install/interactive/http.pm |  4 ++--
 perl-install/interactive/newt.pm | 10 +++++-----
 3 files changed, 12 insertions(+), 12 deletions(-)

diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index 767b54004..8af325cfa 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -112,11 +112,11 @@ sub vnew {
     interactive::newt->new;
 }
 
-sub enter_console() {}
-sub leave_console() {}
-sub suspend() {}
-sub resume() {}
-sub end() {}
+sub enter_console {}
+sub leave_console {}
+sub suspend {}
+sub resume {}
+sub end {}
 sub exit { exit($_[0]) }
 
 #-######################################################################################
diff --git a/perl-install/interactive/http.pm b/perl-install/interactive/http.pm
index c821467a8..3fef66fcb 100644
--- a/perl-install/interactive/http.pm
+++ b/perl-install/interactive/http.pm
@@ -41,7 +41,7 @@ sub new {
     bless {}, $_[0];
 }
 
-sub end() { 
+sub end { 
     -e $pipe_r or return; # don't run this twice
     my $q = CGI->new;
     cont_stdout("Exit");
@@ -93,7 +93,7 @@ sub ask_fromW {
 	} else {
 	    print $e->{hidden} ?
 	      $q->password_field('-name' => "w$::i", '-default' => ${$e->{val}}) :
-	      $q->textfield(     '-name' => "w$::i", '-default' => ${$e->{val}});
+		   $q->textfield('-name' => "w$::i", '-default' => ${$e->{val}});
 	}
 
 	print "</td></tr>\n";
diff --git a/perl-install/interactive/newt.pm b/perl-install/interactive/newt.pm
index 087b19112..52ba9ce57 100644
--- a/perl-install/interactive/newt.pm
+++ b/perl-install/interactive/newt.pm
@@ -23,11 +23,11 @@ sub new {
     bless {}, $_[0];
 }
 
-sub enter_console() { Newt::Suspend() }
-sub leave_console() { Newt::Resume() }
-sub suspend() { Newt::Suspend() }
-sub resume() { Newt::Resume() }
-sub end() { Newt::Finished() }
+sub enter_console { Newt::Suspend() }
+sub leave_console { Newt::Resume() }
+sub suspend { Newt::Suspend() }
+sub resume { Newt::Resume() }
+sub end { Newt::Finished() }
 sub exit { end(); exit($_[1]) }
 END { end() }
 
-- 
cgit v1.2.1