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;
 }