From 4006b6abce88b7a53502926f921ae1408b5dd37e Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 13 Nov 2002 11:46:04 +0000
Subject: add/remove spaces to make perl_checker happy

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

(limited to 'perl-install/interactive')

diff --git a/perl-install/interactive/http.pm b/perl-install/interactive/http.pm
index b9e567371..33deb4b22 100644
--- a/perl-install/interactive/http.pm
+++ b/perl-install/interactive/http.pm
@@ -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 1f1a49d0d..b15b92a57 100644
--- a/perl-install/interactive/newt.pm
+++ b/perl-install/interactive/newt.pm
@@ -19,7 +19,7 @@ sub new() {
     Newt::Cls();
     Newt::SetSuspendCallback();
     ($width, $height) = Newt::GetScreenSize();
-    open STDERR,">/dev/null" if $::isStandalone && !$::testing;
+    open STDERR, ">/dev/null" if $::isStandalone && !$::testing;
     bless {}, $_[0];
 }
 
@@ -53,7 +53,7 @@ sub myTextbox {
 
 sub separator {
     my $blank = Newt::Component::Form(\undef, '', 0);
-    $blank->FormSetWidth ($_[0]);
+    $blank->FormSetWidth($_[0]);
     $blank->FormSetHeight($_[1]);
     $blank;
 }
-- 
cgit v1.2.1