diff options
Diffstat (limited to 'perl-install/any.pm')
| -rw-r--r-- | perl-install/any.pm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm index e71132b69..8ca9553db 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -625,6 +625,7 @@ sub setupBootloader__grub2 { require network::network; #- to list network profiles my $vga = Xconfig::resolution_and_depth::from_bios($b->{vga}); + my $os_prober = run_program::rooted($::prefix, 'rpm', '-q', 'os-prober'); my $res = $in->ask_from_( { @@ -636,12 +637,18 @@ sub setupBootloader__grub2 { { label => N("Append"), val => \$append }, { label => N("Video mode"), val => \$vga, list => [ '', Xconfig::resolution_and_depth::bios_vga_modes() ], format => \&Xconfig::resolution_and_depth::to_string, advanced => 1 }, + { text => N("Probe Foreign OS"), val => \$os_prober, type => 'bool' }, ]); if ($res) { $b->{entries} = $b2->{entries}; $b->{default} = $default; $b->{vga} = ref($vga) ? $vga->{bios} : $vga; first(@{$b->{entries}})->{append} = $append; + if ($os_prober) { + $in->do_pkgs->ensure_is_installed('os-prober', '/usr/bin/os-prober'); + } else { + $in->do_pkgs->remove('os-prober'); + } 1; } else { ''; |