summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_gtk.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2002-01-25 10:38:50 +0000
committerFrancois Pons <fpons@mandriva.com>2002-01-25 10:38:50 +0000
commite06775888d1d868b6d8fea170939adb05b4692a7 (patch)
treea02caea28e630e26a0dc32d09753c62ae205a2e8 /perl-install/install_steps_gtk.pm
parent7e1284dfe650ec6af6e4e93ffe53ca5e3c8e1ac9 (diff)
downloaddrakx-backup-do-not-use-e06775888d1d868b6d8fea170939adb05b4692a7.tar
drakx-backup-do-not-use-e06775888d1d868b6d8fea170939adb05b4692a7.tar.gz
drakx-backup-do-not-use-e06775888d1d868b6d8fea170939adb05b4692a7.tar.bz2
drakx-backup-do-not-use-e06775888d1d868b6d8fea170939adb05b4692a7.tar.xz
drakx-backup-do-not-use-e06775888d1d868b6d8fea170939adb05b4692a7.zip
cosmetic changes.
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
-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 96977a540..bd3f75065 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -630,7 +630,7 @@ sub installPackages {
my ($method, $medium) = @_;
#- if not using a cdrom medium, always abort.
- $method eq 'cdrom' && !$::oem and do {
+ if ($method eq 'cdrom' && !$::oem) {
local $my_gtk::grab = 1;
my $name = pkgs::mediumDescr($o->{packages}, $medium);
local $| = 1; print "\a";
@@ -643,7 +643,7 @@ If you don't have it, press Cancel to avoid installation from this Cd-Rom.", $na
#- add the elapsed time (otherwise the predicted time will be rubbish)
$start_time += time() - $time;
return $r;
- };
+ }
};
my $install_result;
catch_cdie { $install_result = $o->install_steps::installPackages($packages); }