From b0663cb976ed9b388f502e948b1ab83a95231837 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 22 Jun 2004 06:23:52 +0000
Subject: add check_enough_space() and use it

---
 perl-install/bootloader.pm | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

(limited to 'perl-install/bootloader.pm')

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;
 }
 
-- 
cgit v1.2.1