summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-05-30 06:35:04 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-05-30 06:35:04 +0000
commit8d60081683d25875743c1e63432e6ff96a62a85a (patch)
treec4553a211c22d0b33fc35bfb8082a5efb1b29658 /perl-install
parentc6bea4ae86c6843d9f32150a6cd29d24006cf105 (diff)
downloaddrakx-8d60081683d25875743c1e63432e6ff96a62a85a.tar
drakx-8d60081683d25875743c1e63432e6ff96a62a85a.tar.gz
drakx-8d60081683d25875743c1e63432e6ff96a62a85a.tar.bz2
drakx-8d60081683d25875743c1e63432e6ff96a62a85a.tar.xz
drakx-8d60081683d25875743c1e63432e6ff96a62a85a.zip
remove dead code
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install2.pm6
1 files changed, 2 insertions, 4 deletions
diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index 5f62b3ac1..59feffbcd 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -613,18 +613,16 @@ sub main {
eval { output('/proc/splash', "verbose\n") };
#-the main cycle
- my $clicked = 0;
MAIN: for ($o->{step} = $o->{steps}{first};; $o->{step} = getNextStep($o)) {
$o->{steps}{$o->{step}}{entered}++;
$o->enteringStep($o->{step});
eval {
- &{$install2::{$o->{step}}}($clicked || $o->{steps}{$o->{step}}{noauto},
+ &{$install2::{$o->{step}}}($o->{steps}{$o->{step}}{noauto},
$o->{steps}{$o->{step}}{entered},
- $clicked ? 0 : $o->{steps}{$o->{step}}{auto});
+ $o->{steps}{$o->{step}}{auto});
};
my $err = $@;
$o->kill_action;
- $clicked = 0;
if ($err) {
local $_ = $err;
$o->kill_action;