diff options
| author | Thierry Vignaud <tv@mageia.org> | 2011-10-10 20:36:35 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2011-10-10 20:36:35 +0000 |
| commit | ba74238a748d4d3cd83e7140ffef4d02baadce85 (patch) | |
| tree | 0e66ab652e5ff608c9cc02d4304c94c2a852a901 /perl-install/install | |
| parent | 49a47057f118d05ddc7661ea5a9731ce526e0ce4 (diff) | |
| download | drakx-ba74238a748d4d3cd83e7140ffef4d02baadce85.tar drakx-ba74238a748d4d3cd83e7140ffef4d02baadce85.tar.gz drakx-ba74238a748d4d3cd83e7140ffef4d02baadce85.tar.bz2 drakx-ba74238a748d4d3cd83e7140ffef4d02baadce85.tar.xz drakx-ba74238a748d4d3cd83e7140ffef4d02baadce85.zip | |
perl_checker cleanups
Diffstat (limited to 'perl-install/install')
| -rw-r--r-- | perl-install/install/steps_gtk.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/install/steps_gtk.pm b/perl-install/install/steps_gtk.pm index 3aaca036f..a574bb6e9 100644 --- a/perl-install/install/steps_gtk.pm +++ b/perl-install/install/steps_gtk.pm @@ -631,7 +631,7 @@ sub installPackages { $w->flush; } elsif ($type eq 'inst' && $subtype eq 'progress') { - $o->{install_start_time} = time() unless $o->{install_start_time}; + $o->{install_start_time} ||= time(); gtkval_modify(\$pkg_progress, $total ? $amount / $total : 0); my $dtime = time() - $o->{install_start_time}; @@ -688,7 +688,7 @@ sub summary_prompt { push @table, [], [ gtknew('HBox', children_tight => [ $e->{widget}, gtknew('Alignment', width => 10) ]), gtknew('Button', text => N("Configure"), clicked => sub { $w->{rwindow}->hide; - my ($old_icon, $old_title) = get_default_step_items(); + my ($_old_icon, $old_title) = get_default_step_items(); set_default_step_items($e->{banner_title} || $old_title); $e->{clicked}(); set_default_step_items($old_title); |