diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-12-04 21:22:16 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-12-04 21:22:16 +0000 |
| commit | 868f8ef6acc35e7f402f082fb8398c22bbd012b5 (patch) | |
| tree | 97085cdd1bd58872e282d0d5675bec7dd2c1af0f /perl-install/install_steps_gtk.pm | |
| parent | 987b89760dd7090ecf49bd225c634bcf7503d18c (diff) | |
| download | drakx-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.pm | 6 |
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; |