summaryrefslogtreecommitdiffstats
path: root/urpm.pm
diff options
context:
space:
mode:
Diffstat (limited to 'urpm.pm')
-rw-r--r--urpm.pm9
1 files changed, 6 insertions, 3 deletions
diff --git a/urpm.pm b/urpm.pm
index 1579e856..d705043a 100644
--- a/urpm.pm
+++ b/urpm.pm
@@ -2899,6 +2899,7 @@ sub extract_packages_to_install {
\%inst;
}
+# size of the installation progress bar
my $progress_size = 45;
eval {
require Term::ReadKey;
@@ -2907,18 +2908,20 @@ eval {
$progress_size < 5 and $progress_size = 5;
};
-#- install logger (a la rpm)
+# install logger callback
sub install_logger {
my ($urpm, $type, $id, $subtype, $amount, $total) = @_;
my $pkg = defined $id && $urpm->{depslist}[$id];
my $total_pkg = $urpm->{nb_install};
+ local $| = 1;
if ($subtype eq 'start') {
$urpm->{logger_progress} = 0;
if ($type eq 'trans') {
$urpm->{logger_id} ||= 0;
$urpm->{logger_count} ||= 0;
- printf("%-33s", N("Preparing..."));
+ my $p = N("Preparing...");
+ print $p, " " x (33 - length $p);
} else {
++$urpm->{logger_id};
my $pname = $pkg ? $pkg->name : '';
@@ -2930,7 +2933,7 @@ sub install_logger {
} elsif ($subtype eq 'stop') {
if ($urpm->{logger_progress} < $progress_size) {
print '#' x ($progress_size - $urpm->{logger_progress});
- print "\n";
+ print "\n" if $progress_size != $urpm->{logger_progress};
}
} elsif ($subtype eq 'progress') {
my $new_progress = $total > 0 ? int($progress_size * $amount / $total) : $progress_size;