From 059b63602f3fabb23b15ef48bd617e0d323b5ba4 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Fri, 22 May 2015 03:23:11 -0400
Subject: further simplify

---
 perl-install/standalone/drakboot | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

diff --git a/perl-install/standalone/drakboot b/perl-install/standalone/drakboot
index b136ccf61..b4fa43a98 100755
--- a/perl-install/standalone/drakboot
+++ b/perl-install/standalone/drakboot
@@ -32,15 +32,11 @@ use fs;
 
 my $in = 'interactive'->vnew('su');
 
-my $all_hds;
-my $fstab;
-my $bootloader;
-
-$all_hds = fsedit::get_hds();
+my $all_hds = fsedit::get_hds();
 fs::get_raw_hds('', $all_hds);
 fs::get_info_from_fstab($all_hds);
-$fstab = [ fs::get::fstab($all_hds) ];
-$bootloader = bootloader::read($all_hds);
+my $fstab = [ fs::get::fstab($all_hds) ];
+my $bootloader = bootloader::read($all_hds);
 if (!$bootloader) {
     $in->ask_okcancel('', N("No bootloader found, creating a new configuration"), 0) or $in->exit;
     any::setupBootloaderBeforeStandalone($in->do_pkgs, $bootloader ||= {}, $all_hds, $fstab);
-- 
cgit v1.2.1