summaryrefslogtreecommitdiffstats
path: root/urpm
diff options
context:
space:
mode:
Diffstat (limited to 'urpm')
-rw-r--r--urpm/download.pm12
1 files changed, 10 insertions, 2 deletions
diff --git a/urpm/download.pm b/urpm/download.pm
index f9f4be2d..f7653f5e 100644
--- a/urpm/download.pm
+++ b/urpm/download.pm
@@ -421,6 +421,14 @@ sub sync_ssh {
sync_rsync($options, @_);
}
+#- get the width of the terminal
+my $wchar = 79;
+eval {
+ require Term::ReadKey;
+ ($wchar) = Term::ReadKey::GetTerminalSize();
+ --$wchar;
+};
+
#- default logger suitable for sync operation on STDERR only.
sub sync_logger {
my ($mode, $file, $percent, $total, $eta, $speed) = @_;
@@ -433,9 +441,9 @@ sub sync_logger {
} else {
$text = N(" %s%% completed, speed = %s", $percent, $speed);
}
- print STDERR $text, " " x (79 - length($text)), "\r";
+ print STDERR $text, " " x ($wchar - length($text)), "\r";
} elsif ($mode eq 'end') {
- print STDERR " " x 79, "\r";
+ print STDERR " " x $wchar, "\r";
} elsif ($mode eq 'error') {
#- error is 3rd argument, saved in $percent
print STDERR N("...retrieving failed: %s", $percent), "\n";