diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-08-09 03:34:27 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-08-09 03:34:27 +0000 |
| commit | e7e3543708edb4a12e0bc744c06420344522eea4 (patch) | |
| tree | 2b8f633c767cfc38f83619a32d506fff6db80e9d /perl-install/install2.pm | |
| parent | 01988a82b1ebfa676cc48c277156954d4f568507 (diff) | |
| download | drakx-backup-do-not-use-e7e3543708edb4a12e0bc744c06420344522eea4.tar drakx-backup-do-not-use-e7e3543708edb4a12e0bc744c06420344522eea4.tar.gz drakx-backup-do-not-use-e7e3543708edb4a12e0bc744c06420344522eea4.tar.bz2 drakx-backup-do-not-use-e7e3543708edb4a12e0bc744c06420344522eea4.tar.xz drakx-backup-do-not-use-e7e3543708edb4a12e0bc744c06420344522eea4.zip | |
correctly call errorInStep()
Diffstat (limited to 'perl-install/install2.pm')
| -rw-r--r-- | perl-install/install2.pm | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/perl-install/install2.pm b/perl-install/install2.pm index d7e6c4977..2d6be8961 100644 --- a/perl-install/install2.pm +++ b/perl-install/install2.pm @@ -337,11 +337,11 @@ sub start_i810fb() { #-###################################################################################### sub main { $SIG{SEGV} = sub { - my $msg = "segmentation fault: seems like memory is missing as the install crashes"; print "$msg\n"; log::l($msg); + my $msg = "segmentation fault: seems like memory is missing as the install crashes"; log::l($msg); $o->ask_warn('', $msg); setVirtual(1); require install_steps_auto_install; - install_steps_auto_install_non_interactive::errorInStep(); + install_steps_auto_install_non_interactive::errorInStep($o, $msg); }; $ENV{PERL_BADLANG} = 1; $ENV{LD_ASSUME_KERNEL} = '2.4.1'; @@ -493,8 +493,7 @@ sub main { log::l("error using auto_install, continuing"); undef $::auto_install; } else { - print "Error using auto_install\n", formatError($@), "\n"; - install_steps_auto_install_non_interactive::errorInStep(); + install_steps_auto_install_non_interactive::errorInStep($o, "Error using auto_install\n" . formatError($@)); } } else { log::l("auto install config file loaded successfully"); |