From ba74238a748d4d3cd83e7140ffef4d02baadce85 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 10 Oct 2011 20:36:35 +0000 Subject: perl_checker cleanups --- perl-install/install/steps_gtk.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/install/steps_gtk.pm') 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); -- cgit v1.2.1