From b5f6b381c4778cf2c606e16a8ce7f3f967b6ca14 Mon Sep 17 00:00:00 2001 From: damien Date: Wed, 11 Apr 2001 16:38:56 +0000 Subject: corrected --- perl-install/bootlook.pm | 23 +++++++++++------------ 1 file changed, 11 insertions(+), 12 deletions(-) (limited to 'perl-install/bootlook.pm') diff --git a/perl-install/bootlook.pm b/perl-install/bootlook.pm index 9f0b90b3b..e98f5083e 100644 --- a/perl-install/bootlook.pm +++ b/perl-install/bootlook.pm @@ -31,7 +31,6 @@ use standalone; use common qw(:common :file :functional :system); use my_gtk qw(:helpers :wrappers); use any; -use Data::Dumper; setlocale (LC_ALL, ""); Locale::GetText::textdomain ("Bootlookdrake"); @@ -408,16 +407,16 @@ sub lilo_choice fs::get_mntpoints_from_fstab($fstab); $::expert=1; -# ask: - print Data::Dumper->Dump([$in],['$in']), "\n", Data::Dumper->Dump([$hds],['$hds']), "\n"; - + ask: + $::isEmbedded = 0; any::setupBootloader($in, $bootloader, $hds, $fstab, $ENV{SECURE_LEVEL}) or $in->exit(0); -# eval { bootloader::install('', $bootloader, $fstab, $hds) }; -# if ($@) { -# $in->ask_warn('', -# [ _("Installation of LILO failed. The following error occured:"), -# grep { !/^Warning:/ } cat_("/tmp/.error") ]); -# unlink "/tmp/.error"; -# goto ask; -# } + eval { bootloader::install('', $bootloader, $fstab, $hds) }; + if ($@) { + $in->ask_warn('', + [ _("Installation of LILO failed. The following error occured:"), + grep { !/^Warning:/ } cat_("/tmp/.error") ]); + unlink "/tmp/.error"; + goto ask; + } + $::isEmbedded = 0; } -- cgit v1.2.1