diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-06-03 13:24:34 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-06-03 13:24:34 +0000 |
| commit | 2ccb592fc1dd28aa4c11be203a0f2b300743a726 (patch) | |
| tree | e4445901c2864beee50b10b4ab045cc604beacf8 /perl-install | |
| parent | 337801868e55146ca66221654d6295d0e24b01a7 (diff) | |
| download | drakx-2ccb592fc1dd28aa4c11be203a0f2b300743a726.tar drakx-2ccb592fc1dd28aa4c11be203a0f2b300743a726.tar.gz drakx-2ccb592fc1dd28aa4c11be203a0f2b300743a726.tar.bz2 drakx-2ccb592fc1dd28aa4c11be203a0f2b300743a726.tar.xz drakx-2ccb592fc1dd28aa4c11be203a0f2b300743a726.zip | |
no_comment
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/c/sbus.c | 3 | ||||
| -rw-r--r-- | perl-install/install_steps.pm | 7 | ||||
| -rw-r--r-- | perl-install/install_steps_auto_install.pm | 1 | ||||
| -rw-r--r-- | perl-install/sbus_probing/main.pm | 2 |
4 files changed, 6 insertions, 7 deletions
diff --git a/perl-install/c/sbus.c b/perl-install/c/sbus.c index 1fed1f886..3de75fca2 100644 --- a/perl-install/c/sbus.c +++ b/perl-install/c/sbus.c @@ -19,11 +19,12 @@ * */ +#include <stdlib.h> + #ifdef __sparc__ #include <fcntl.h> #include <unistd.h> -#include <stdlib.h> #include <string.h> #include <sys/ioctl.h> #include <asm/openpromio.h> diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm index c209b56e8..9e2486d70 100644 --- a/perl-install/install_steps.pm +++ b/perl-install/install_steps.pm @@ -308,8 +308,8 @@ sub installPackages($$) { #- complete REWORK, TODO and TOCHECK! my $time = time; $ENV{DURING_INSTALL} = 1; pkgs::install($o->{prefix}, $o->{isUpgrade}, \@toInstall, $packages->[1], $packages->[2]); - run_program::rooted($o->{prefix}, 'ldconfig'); delete $ENV{DURING_INSTALL}; + run_program::rooted($o->{prefix}, 'ldconfig') or die "ldconfig failed!"; log::l("Install took: ", formatTime(time - $time)); } @@ -338,14 +338,11 @@ Consoles 1,3,4,7 may also contain interesting information"; #- why not? cuz weather is nice today :-) [pixel] sync(); sync(); - #- call ldconfig at the end of package installation - run_program::rooted($o->{prefix}, "ldconfig"); - #- configure PCMCIA services if needed. $o->pcmciaConfig(); #- for mandrake_firstime - output "$o->{prefix}/var/lock/TMP_1ST", ""; + touch "$o->{prefix}/var/lock/TMP_1ST"; #- remove the nasty acon... run_program::rooted($o->{prefix}, "chkconfig", "--del", "acon") unless $ENV{LANGUAGE} =~ /ar/; diff --git a/perl-install/install_steps_auto_install.pm b/perl-install/install_steps_auto_install.pm index a48154aea..6792708ca 100644 --- a/perl-install/install_steps_auto_install.pm +++ b/perl-install/install_steps_auto_install.pm @@ -35,6 +35,7 @@ sub exitInstall { my ($o) = @_; return if $o->{autoExitInstall}; + print "\a"; print "Auto installation complete\n"; print "Press <Enter> to reboot\n"; <STDIN>; diff --git a/perl-install/sbus_probing/main.pm b/perl-install/sbus_probing/main.pm index fa40160ae..e5c3f1596 100644 --- a/perl-install/sbus_probing/main.pm +++ b/perl-install/sbus_probing/main.pm @@ -108,7 +108,7 @@ sub prom_walk($$$$) { $result; } || $prob_name eq 'leo' && c::prom_getproperty('model') =~ /501-2503/ && '_t' || - $prob_name eq 'tcx' && c::prom_getboot('tcx-8-bit') && '_8b' || + $prob_name eq 'tcx' && c::prom_getbool('tcx-8-bit') && '_8b' || $prob_name eq 'afb' && sprintf "_btx%x", c::prom_getint('board_type') || $prob_name eq 'ffb' && sprintf "_btx%x", c::prom_getint('board_type')); |