diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-11-13 14:25:59 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-11-13 14:25:59 +0000 |
| commit | b7661719bc1f1ebd078c7e7adb2eb25c83526c27 (patch) | |
| tree | 9cedb533d18ccd4640a30488b731f83c3c438d58 /perl-install/pkgs.pm | |
| parent | f47690a41184c9f99a6fbf003b1045c3f4c0220b (diff) | |
| download | drakx-b7661719bc1f1ebd078c7e7adb2eb25c83526c27.tar drakx-b7661719bc1f1ebd078c7e7adb2eb25c83526c27.tar.gz drakx-b7661719bc1f1ebd078c7e7adb2eb25c83526c27.tar.bz2 drakx-b7661719bc1f1ebd078c7e7adb2eb25c83526c27.tar.xz drakx-b7661719bc1f1ebd078c7e7adb2eb25c83526c27.zip | |
add/remove spaces to make perl_checker happy
Diffstat (limited to 'perl-install/pkgs.pm')
| -rw-r--r-- | perl-install/pkgs.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index aae42dfbd..21d03a920 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -81,7 +81,7 @@ sub extractHeaders { } foreach (@$pkgs) { - my $f = "$prefix/tmp/headers/". $_->header_filename; + my $f = "$prefix/tmp/headers/" . $_->header_filename; $_->update_header($f) or log::l("unable to open header file $f"), next; log::l("read header file $f"); } @@ -190,7 +190,7 @@ sub packagesToInstall { log::l("examining packagesToInstall of medium $_->{descr}"); push @packages, grep { $_->flag_selected } packagesOfMedium($packages, $_); } - log::l("found " .scalar(@packages). " packages to install"); + log::l("found " . scalar(@packages) . " packages to install"); @packages; } @@ -749,7 +749,7 @@ sub rpmDbOpen { my $rebuilddb_dir = "$prefix/var/lib/rpmrebuilddb.$$"; -d $rebuilddb_dir and log::l("removing stale directory $rebuilddb_dir"), rm_rf($rebuilddb_dir); - URPM::DB::rebuild($prefix) or log::l("rebuilding of rpm database failed: ". c::rpmErrorString()), c::_exit(2); + URPM::DB::rebuild($prefix) or log::l("rebuilding of rpm database failed: " . c::rpmErrorString()), c::_exit(2); c::_exit(0); } @@ -988,7 +988,7 @@ sub install($$$;$$) { log::l("opened rpm database for retry transaction of 1 package only"); $trans->add($retry_pkg, $isUpgrade && allowedToUpgrade($retry_pkg->name)); } else { - log::l("opened rpm database for transaction of ". scalar @transToInstall . + log::l("opened rpm database for transaction of " . scalar @transToInstall . " new packages, still $nb after that to do"); $trans->add($_, $isUpgrade && allowedToUpgrade($_->name)) foreach @transToInstall; @@ -1073,7 +1073,7 @@ sub install($$$;$$) { log::l("retrying installing package ".$retry_pkg->fullname." alone in a transaction"); --$retry_count; } else { - log::l("bad package ". $retry_pkg->fullname ." unable to be installed"); + log::l("bad package " . $retry_pkg->fullname . " unable to be installed"); $retry_pkg->set_flag_requested(0); $retry_pkg->set_flag_required(0); #- keep name to display (problem of displaying ?). |