From a8924662d5351a991c9ce8bfce82a027893b0beb Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 19 Jul 2004 06:49:29 +0000 Subject: don't unset prompt when timeout is undefined (and don't care when timeout is 0) --- perl-install/bootloader.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install') diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm index 7fd66240b..56da1f487 100644 --- a/perl-install/bootloader.pm +++ b/perl-install/bootloader.pm @@ -828,7 +828,7 @@ sub check_enough_space() { sub write_yaboot { my ($bootloader, $_hds) = @_; - $bootloader->{prompt} = $bootloader->{timeout}; + $bootloader->{prompt} ||= $bootloader->{timeout}; if ($bootloader->{message}) { eval { output("$::prefix/boot/message", $bootloader->{message}) } @@ -917,7 +917,7 @@ sub make_label_lilo_compatible { sub write_lilo { my ($bootloader, $hds) = @_; - $bootloader->{prompt} = $bootloader->{timeout}; + $bootloader->{prompt} ||= $bootloader->{timeout}; my $file2fullname = sub { my ($file) = @_; -- cgit v1.2.1