1 files changed, 23 insertions, 0 deletions
diff --git a/perl-install/Xconfig/various.pm b/perl-install/Xconfig/various.pm
index c1997fb5a..657c26b2f 100644
--- a/perl-install/Xconfig/various.pm
+++ b/perl-install/Xconfig/various.pm
@@ -149,4 +149,27 @@ sub check_XF86Config_symlink() {
     }
 }
 
+sub setupFB {
+    my ($bios_vga_mode) = @_;
+
+    require bootloader;
+    my ($bootloader, $all_hds);
+
+    if ($::isInstall) {
+	($bootloader, $all_hds) = ($::o->{bootloader}, $::o->{all_hds});
+    } else {
+	$all_hds = fsedit::get_hds();
+	fs::get_info_from_fstab($all_hds);
+
+	$bootloader = bootloader::read($all_hds) or return;
+    }
+
+    foreach (@{$bootloader->{entries}}) {
+	$_->{vga} = $bios_vga_mode if $_->{vga}; #- replace existing vga= with
+    }
+
+    bootloader::action($bootloader, 'write', $all_hds);
+    bootloader::action($bootloader, 'when_config_changed');
+}
+
 1;