summaryrefslogtreecommitdiffstats
path: root/perl-install/install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/install')
-rw-r--r--perl-install/install/steps_gtk.pm4
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);