From a8a73d1a21029d7b7f36b2b3a809e864d2869c7b Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 3 Feb 2010 23:38:06 +0000 Subject: (get_apple_boot_parts) extract it out of setupBootloader__general() for readability --- perl-install/any.pm | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'perl-install/any.pm') diff --git a/perl-install/any.pm b/perl-install/any.pm index 93978fa6f..fa702bb6a 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -380,6 +380,11 @@ sub setupBootloader__mbr_or_not { 1; } +sub get_apple_boot_parts { + my ($fstab) = @_; + map { "/dev/$_" } (map { $_->{device} } (grep { isAppleBootstrap($_) } @$fstab)); +} + sub setupBootloader__general { my ($in, $b, $all_hds, $fstab, $security) = @_; @@ -451,7 +456,7 @@ sub setupBootloader__general { { label => N("Bootloader to use"), val => \$b->{method}, list => \@method_choices, format => \&bootloader::method2text }, { label => N("Init Message"), val => \$b->{'init-message'} }, - { label => N("Boot device"), val => \$b->{boot}, list => [ map { "/dev/$_" } (map { $_->{device} } (grep { isAppleBootstrap($_) } @$fstab)) ] }, + { label => N("Boot device"), val => \$b->{boot}, list => [ get_apple_boot_parts($fstab) ] }, { label => N("Open Firmware Delay"), val => \$b->{delay} }, { label => N("Kernel Boot Timeout"), val => \$b->{timeout} }, { label => N("Enable CD Boot?"), val => \$b->{enablecdboot}, type => "bool" }, -- cgit v1.2.1