summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-06-03 05:43:23 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-06-03 05:43:23 +0000
commit11c559375d0d541d0f5fb489601943a4787eac7f (patch)
treeb6454c0e8a233cfd27ecf2efd2c5981713604405
parent5f0477547b3122c61cb11f97e5d2dfac8932fcce (diff)
downloaddrakx-11c559375d0d541d0f5fb489601943a4787eac7f.tar
drakx-11c559375d0d541d0f5fb489601943a4787eac7f.tar.gz
drakx-11c559375d0d541d0f5fb489601943a4787eac7f.tar.bz2
drakx-11c559375d0d541d0f5fb489601943a4787eac7f.tar.xz
drakx-11c559375d0d541d0f5fb489601943a4787eac7f.zip
make perl_checker happy
-rw-r--r--perl-install/interactive/newt.pm2
-rw-r--r--perl-install/pkgs.pm2
-rwxr-xr-xperl-install/standalone/harddrake22
3 files changed, 3 insertions, 3 deletions
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);