summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/bootloader.pm10
1 files changed, 7 insertions, 3 deletions
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index c484b121b..4f72f6026 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -706,6 +706,12 @@ sub get_of_dev {
$of_dev;
}
+sub check_enough_space() {
+ my $e = "$::prefix/boot/.enough_space";
+ output $e, 1; -s $e or die N("not enough room in /boot");
+ unlink $e;
+}
+
sub install_yaboot {
my ($bootloader, $_fstab, $_hds) = @_;
$bootloader->{prompt} = $bootloader->{timeout};
@@ -1037,9 +1043,7 @@ quit
EOF
";
- my $e = "$::prefix/boot/.enough_space";
- output $e, 1; -s $e or die N("not enough room in /boot");
- unlink $e;
+ check_enough_space();
$f;
}