(progress_text) kill unused parameter

2 files changed, 3 insertions, 3 deletions

diff --git a/gurpmi2 b/gurpmi2
index 0ad48580..8ec618ce 100755
--- a/gurpmi2
+++ b/gurpmi2
@@ -356,7 +356,7 @@ sub do_install_3 () {
             if (member($mode, 'start', 'progress')) {
 		$file =~ s|/*\s*$||; $file =~ s|.*/||;
                 $progress_label->set_label(N("Downloading package `%s'...", $file) . "\n" .
-                                             &urpm::download::progress_text($mode, $file, $percent, $total, $eta, $speed));
+                                             &urpm::download::progress_text($mode, $percent, $total, $eta, $speed));
 	    }
             if ($mode eq 'start') {
 		$download_nb++;
diff --git a/urpm/download.pm b/urpm/download.pm
index 62a9c5ac..d13f844a 100644
--- a/urpm/download.pm
+++ b/urpm/download.pm
@@ -829,7 +829,7 @@ eval {
 };
 
 sub progress_text {
-    my ($mode, $_file, $percent, $total, $eta, $speed) = @_;
+    my ($mode, $percent, $total, $eta, $speed) = @_;
     $mode eq 'progress' ?
       (defined $total && defined $eta ?
 	 N("        %s%% of %s completed, ETA = %s, speed = %s", $percent, $total, $eta, $speed) :
@@ -847,7 +847,7 @@ sub sync_logger {
     if ($mode eq 'start') {
 	print STDERR "    $file\n";
     } elsif ($mode eq 'progress') {
-	my $text = progress_text($mode, $file, $percent, $total, $eta, $speed);
+	my $text = progress_text($mode, $percent, $total, $eta, $speed);
 	if (length($text) > $wchar) { $text = substr($text, 0, $wchar) }
 	if (bytes::length($text) < $wchar) {
 	    # clearing more than needed in case the terminal is not handling utf8 and we have a utf8 string