summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-12-04 21:22:16 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-12-04 21:22:16 +0000
commit868f8ef6acc35e7f402f082fb8398c22bbd012b5 (patch)
tree97085cdd1bd58872e282d0d5675bec7dd2c1af0f /perl-install/install_steps_gtk.pm
parent987b89760dd7090ecf49bd225c634bcf7503d18c (diff)
downloaddrakx-868f8ef6acc35e7f402f082fb8398c22bbd012b5.tar
drakx-868f8ef6acc35e7f402f082fb8398c22bbd012b5.tar.gz
drakx-868f8ef6acc35e7f402f082fb8398c22bbd012b5.tar.bz2
drakx-868f8ef6acc35e7f402f082fb8398c22bbd012b5.tar.xz
drakx-868f8ef6acc35e7f402f082fb8398c22bbd012b5.zip
remove unused variables or rename them with an underscore (eg: $o becomes $_o)
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
-rw-r--r--perl-install/install_steps_gtk.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index 3709c4582..648548626 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -439,7 +439,7 @@ sub beforeInstallPackages {
sub installPackages {
my ($o, $packages) = @_;
- my ($current_total_size, $last_size, $nb, $total_size, $start_time, $last_dtime, $trans_progress_total);
+ my ($current_total_size, $last_size, $nb, $total_size, $start_time, $last_dtime, $_trans_progress_total);
my $w = ugtk2->new(N("Installing"));
$w->sync;
@@ -498,8 +498,8 @@ sub installPackages {
my $decy = 0;
my $first = 1;
foreach (@data) {
- my ($text, $x, $y, $area_width, $area_height, $bold) = @$_;
- my ($width, $height, $lines, $widths, $heights, $ascents, $descents) =
+ my ($text, $x, $y, $area_width, $area_height, $_bold) = @$_;
+ my ($width, $_height, $lines, $widths, $heights, $_ascents, $_descents) =
get_text_coord($text, $darea, $area_width, $area_height, 1, 0, 1, 1);
if ($first && $icon) {
my $iconx = ($dx-$width)/2 + $x + ${$widths}[0] - $icon_dx;