diff options
author | Pascal Rigaux <pixel@mandriva.com> | 1999-12-21 01:25:00 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 1999-12-21 01:25:00 +0000 |
commit | 3401eeed7427026c5354496bdbbdcfc6f18b38b3 (patch) | |
tree | 423c658f22e69b91e263044ed9848499f5e1172d /perl-install/install2.pm | |
parent | dc9ba01917bf001fe0d5975f167cbb0ded79aa11 (diff) | |
download | drakx-backup-do-not-use-3401eeed7427026c5354496bdbbdcfc6f18b38b3.tar drakx-backup-do-not-use-3401eeed7427026c5354496bdbbdcfc6f18b38b3.tar.gz drakx-backup-do-not-use-3401eeed7427026c5354496bdbbdcfc6f18b38b3.tar.bz2 drakx-backup-do-not-use-3401eeed7427026c5354496bdbbdcfc6f18b38b3.tar.xz drakx-backup-do-not-use-3401eeed7427026c5354496bdbbdcfc6f18b38b3.zip |
no_comment
Diffstat (limited to 'perl-install/install2.pm')
-rw-r--r-- | perl-install/install2.pm | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/perl-install/install2.pm b/perl-install/install2.pm index 824c28149..bb90b8dce 100644 --- a/perl-install/install2.pm +++ b/perl-install/install2.pm @@ -13,7 +13,6 @@ use vars qw($o); use common qw(:common :file :system :functional); use install_any qw(:all); use log; -use help; use commands; use network; use lang; @@ -38,7 +37,7 @@ use install_steps_interactive; my (%installSteps, @orderedInstallSteps); { my @installStepsFields = qw(text redoable onError hidden needs); - #entered reachable toBeDone help next done; + #entered reachable toBeDone next done; my @installSteps = ( selectLanguage => [ __("Choose your language"), 1, 1, '' ], selectInstallClass => [ __("Select installation class"), 1, 1, '' ], @@ -65,7 +64,6 @@ my (%installSteps, @orderedInstallSteps); ); for (my $i = 0; $i < @installSteps; $i += 2) { my %h; @h{@installStepsFields} = @{ $installSteps[$i + 1] }; - $h{help} = $help::steps{$installSteps[$i]} || __("Help"); $h{previous}= $installSteps[$i - 2] if $i >= 2; $h{next} = $installSteps[$i + 2]; $h{entered} = 0; @@ -627,7 +625,7 @@ sub main { install_any::lnx4win_postinstall($o->{prefix}) if $o->{lnx4win}; install_any::killCardServices(); - run_program::rooted($o->{prefix}, "kudzu", "-q"); # -q <=> fermetagueuleconnard +#- run_program::rooted($o->{prefix}, "kudzu", "-q"); # -q <=> fermetagueuleconnard #- have the really bleeding edge ddebug.log for this f*cking msec :-/ eval { commands::cp('-f', "/tmp/ddebug.log", "$o->{prefix}/root") }; |