summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-06-22 06:23:52 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-06-22 06:23:52 +0000
commitb0663cb976ed9b388f502e948b1ab83a95231837 (patch)
tree6bfaaa55a805f24083c1fb164a7d16fa8409e8e9 /perl-install
parentfa52b38e30d58c108fa6e6dfc12d5b279cbf64a8 (diff)
downloaddrakx-b0663cb976ed9b388f502e948b1ab83a95231837.tar
drakx-b0663cb976ed9b388f502e948b1ab83a95231837.tar.gz
drakx-b0663cb976ed9b388f502e948b1ab83a95231837.tar.bz2
drakx-b0663cb976ed9b388f502e948b1ab83a95231837.tar.xz
drakx-b0663cb976ed9b388f502e948b1ab83a95231837.zip
add check_enough_space() and use it
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;
}