diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-06-22 06:23:52 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-06-22 06:23:52 +0000 |
| commit | b0663cb976ed9b388f502e948b1ab83a95231837 (patch) | |
| tree | 6bfaaa55a805f24083c1fb164a7d16fa8409e8e9 /perl-install | |
| parent | fa52b38e30d58c108fa6e6dfc12d5b279cbf64a8 (diff) | |
| download | drakx-backup-do-not-use-b0663cb976ed9b388f502e948b1ab83a95231837.tar drakx-backup-do-not-use-b0663cb976ed9b388f502e948b1ab83a95231837.tar.gz drakx-backup-do-not-use-b0663cb976ed9b388f502e948b1ab83a95231837.tar.bz2 drakx-backup-do-not-use-b0663cb976ed9b388f502e948b1ab83a95231837.tar.xz drakx-backup-do-not-use-b0663cb976ed9b388f502e948b1ab83a95231837.zip | |
add check_enough_space() and use it
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/bootloader.pm | 10 |
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; } |