summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_auto_install.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-06-06 06:21:55 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-06-06 06:21:55 +0000
commit621d75e8ff3e03c640b9bf7191d157de81a11817 (patch)
treeb46a6d1c7c46ee9d85431aa62572af4609f39c93 /perl-install/install_steps_auto_install.pm
parentfb2c096a8cbec7a65700099b4b1b7d6050bdcd56 (diff)
downloaddrakx-621d75e8ff3e03c640b9bf7191d157de81a11817.tar
drakx-621d75e8ff3e03c640b9bf7191d157de81a11817.tar.gz
drakx-621d75e8ff3e03c640b9bf7191d157de81a11817.tar.bz2
drakx-621d75e8ff3e03c640b9bf7191d157de81a11817.tar.xz
drakx-621d75e8ff3e03c640b9bf7191d157de81a11817.zip
get rid of $clicked and $ent_number (obsolete)
Diffstat (limited to 'perl-install/install_steps_auto_install.pm')
-rw-r--r--perl-install/install_steps_auto_install.pm3
1 files changed, 1 insertions, 2 deletions
diff --git a/perl-install/install_steps_auto_install.pm b/perl-install/install_steps_auto_install.pm
index 0933518cf..0c09fc6ed 100644
--- a/perl-install/install_steps_auto_install.pm
+++ b/perl-install/install_steps_auto_install.pm
@@ -26,8 +26,7 @@ sub new {
@ISA = ($interactiveClass, @ISA);
foreach my $f (@{$o->{orderedSteps}}) {
- my $auto_name = member($f, @{$o->{interactiveSteps}}) ? 'noauto' : 'auto';
- $o->{steps}{$f}{$auto_name} = 1;
+ $o->{steps}{$f}{auto} = 1 if !member($f, @{$o->{interactiveSteps}});
}
goto &{$::{$interactiveClass . "::"}{new}};