summaryrefslogtreecommitdiffstats
path: root/perl-install/install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2011-10-10 20:36:35 +0000
committerThierry Vignaud <tv@mageia.org>2011-10-10 20:36:35 +0000
commitba74238a748d4d3cd83e7140ffef4d02baadce85 (patch)
tree0e66ab652e5ff608c9cc02d4304c94c2a852a901 /perl-install/install
parent49a47057f118d05ddc7661ea5a9731ce526e0ce4 (diff)
downloaddrakx-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.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);