From e134c4c741699f647cd9a5ea85800ba222a62149 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 13 Feb 2003 11:07:50 +0000
Subject: don't use $_total, use $total_ instead

---
 perl-install/install_steps_interactive.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 81bd7531f..e13fb2bd7 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -639,9 +639,9 @@ sub installPackages {
 
     my $old = \&pkgs::installCallback;
     local *pkgs::installCallback = sub {
-	my ($data, $type, $id, $subtype, $_amount, $_total) = @_;
+	my ($data, $type, $id, $subtype, $_amount, $total_) = @_;
 	if ($type eq 'user' && $subtype eq 'install') {
-	    $total = $_total;
+	    $total = $total_;
 	} elsif ($type eq 'inst' && $subtype eq 'start') {
 	    my $p = $data->{depslist}[$id];
 	    $w->set(N("Installing package %s\n%d%%", $p->name, $total && 100 * $current / $total));
-- 
cgit v1.2.1