From 11c559375d0d541d0f5fb489601943a4787eac7f Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 3 Jun 2005 05:43:23 +0000
Subject: make perl_checker happy

---
 perl-install/interactive/newt.pm   | 2 +-
 perl-install/pkgs.pm               | 2 +-
 perl-install/standalone/harddrake2 | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/interactive/newt.pm b/perl-install/interactive/newt.pm
index 5b6c02005..8bc39b19f 100644
--- a/perl-install/interactive/newt.pm
+++ b/perl-install/interactive/newt.pm
@@ -315,7 +315,7 @@ sub ask_fromW_real {
     my ($ok, $cancel) = ($common->{ok}, $common->{cancel});
     my ($need_to_die);
     if (!defined $cancel && !defined $ok) {
-        $cancel = $::isWizard && !$::Wizard_no_previous ? N("Previous") : N("Cancel") ;
+        $cancel = $::isWizard && !$::Wizard_no_previous ? N("Previous") : N("Cancel");
         $need_to_die = 1 if !($::isWizard && !$::Wizard_no_previous);
     }
     $ok ||= $::isWizard ? ($::Wizard_finished ? N("Finish") : N("Next")) : N("Ok");
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index c3df7fa52..63fd0d74d 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -651,7 +651,7 @@ sub readCompssUsers {
     my ($file) = @_;
 
     my $f = -e $file ? install_any::getLocalFile($file) : install_any::getFile($file)
-	or do { log::l("can not find $file: $!"); return (undef, undef) };
+	or do { log::l("can not find $file: $!"); return undef, undef };
     my ($compssUsers, $gtk_display_compssUsers) = eval join('', <$f>);
     if ($@) {
 	log::l("ERROR: bad $file: $@");
diff --git a/perl-install/standalone/harddrake2 b/perl-install/standalone/harddrake2
index f108f58a4..e7e8924b8 100755
--- a/perl-install/standalone/harddrake2
+++ b/perl-install/standalone/harddrake2
@@ -579,7 +579,7 @@ $password_w->set_visibility(0); #set_invisible_char('*');
 }
 
 
-sub simple_read_rpmsrate {
+sub simple_read_rpmsrate() {
     map { split(' ', $_) } map {
         if (my ($p, $packages) = /[^!]HW"(.*)"(.*)/) {
             if_(detect_devices::matching_desc__regexp($p), $packages);
-- 
cgit v1.2.1