summaryrefslogtreecommitdiffstats
path: root/perl-install/install2.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-12-21 01:25:00 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-12-21 01:25:00 +0000
commit3401eeed7427026c5354496bdbbdcfc6f18b38b3 (patch)
tree423c658f22e69b91e263044ed9848499f5e1172d /perl-install/install2.pm
parentdc9ba01917bf001fe0d5975f167cbb0ded79aa11 (diff)
downloaddrakx-3401eeed7427026c5354496bdbbdcfc6f18b38b3.tar
drakx-3401eeed7427026c5354496bdbbdcfc6f18b38b3.tar.gz
drakx-3401eeed7427026c5354496bdbbdcfc6f18b38b3.tar.bz2
drakx-3401eeed7427026c5354496bdbbdcfc6f18b38b3.tar.xz
drakx-3401eeed7427026c5354496bdbbdcfc6f18b38b3.zip
no_comment
Diffstat (limited to 'perl-install/install2.pm')
-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 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") };