summaryrefslogtreecommitdiffstats
path: root/perl-install/install2.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-04-14 23:59:01 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-04-14 23:59:01 +0000
commita4299593feb14ed8317da49980b8c06e59688aa2 (patch)
treecf2fea27a2884a3205a95d5c3042cdae91be7c66 /perl-install/install2.pm
parent21066f8c4d8d136cca65f7138cabb25d4b4cfe8c (diff)
downloaddrakx-backup-do-not-use-a4299593feb14ed8317da49980b8c06e59688aa2.tar
drakx-backup-do-not-use-a4299593feb14ed8317da49980b8c06e59688aa2.tar.gz
drakx-backup-do-not-use-a4299593feb14ed8317da49980b8c06e59688aa2.tar.bz2
drakx-backup-do-not-use-a4299593feb14ed8317da49980b8c06e59688aa2.tar.xz
drakx-backup-do-not-use-a4299593feb14ed8317da49980b8c06e59688aa2.zip
no_comment
Diffstat (limited to 'perl-install/install2.pm')
-rw-r--r--perl-install/install2.pm16
1 files changed, 11 insertions, 5 deletions
diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index 5de9f6cc6..75a3f5fdb 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -145,7 +145,7 @@ $o = $::o = {
#- security => 2,
shells => [ map { "/bin/$_" } qw(bash tcsh zsh ash ksh) ],
authentication => { md5 => 1, shadow => 1 },
- lang => 'en',
+ lang => 'fr_FR',
isUpgrade => 0,
toRemove => [],
toSave => [],
@@ -334,6 +334,8 @@ sub formatPartitions {
install_any::getAndSaveFile("lnx4win/$_", "$d/$_") foreach qw(loadlin.exe linux.pif lnx4win.exe lnx4win.ico);
}
+ chdir "$o->{prefix}";
+
#-noatime option for ext2 fs on laptops (do not wake up the hd)
#- Do not update inode access times on this
#- file system (e.g, for faster access on the
@@ -489,15 +491,19 @@ sub exitInstall { $o->exitInstall(getNextStep() eq "exitInstall") }
#-######################################################################################
sub main {
$SIG{__DIE__} = sub { chomp(my $err = $_[0]); log::l("warning: $err") };
- $SIG{SEGV} = sub { my $msg = "segmentation fault: seems like memory is missing as the install crashes"; print "$msg\n"; log::l($msg);
- require install_steps_auto_install;
- install_steps_auto_install::errorInStep();
- };
+# $SIG{SEGV} = sub { my $msg = "segmentation fault: seems like memory is missing as the install crashes"; print "$msg\n"; log::l($msg);
+# $o->ask_warn('', $msg);
+# setVirtual(1);
+# require install_steps_auto_install;
+# install_steps_auto_install::errorInStep();
+# };
$ENV{SHARE_PATH} ||= "/usr/share";
$ENV{DURING_INSTALL} = 1;
$::beginner = $::expert = $::g_auto_install = 0;
+ c::unlimit_core();
+
my ($cfg, $patch);
my %cmdline; map {
my ($n, $v) = split '=';