summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install2.pm4
-rw-r--r--perl-install/install_any.pm46
2 files changed, 38 insertions, 12 deletions
diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index 5a96acab0..75819eb1d 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -192,7 +192,7 @@ sub formatPartitions {
eval { fs::mount::usbfs($::prefix) };
install_any::screenshot_dir__and_move();
- install_any::move_clp_to_disk();
+ install_any::move_clp_to_disk($o->{fstab});
any::rotate_logs($o->{prefix});
@@ -624,7 +624,7 @@ sub main {
last if $o->{step} eq 'exitInstall';
}
- unlink install_any::clp_on_disk();
+ unlink $install_any::clp_on_disk;
install_any::clean_postinstall_rpms();
install_any::log_sizes($o);
install_any::remove_advertising($o);
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 8da749fed..203d87058 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -1888,20 +1888,46 @@ sub write_fstab {
fs::write_fstab($o->{all_hds}, $o->{prefix}) if !$o->{isUpgrade} || $o->{migrate_device_names};
}
-my $clp_name = 'mdkinst.clp';
-sub clp_on_tmpfs() { "/tmp/$clp_name" }
-sub clp_on_disk() { "$::prefix/tmp/$clp_name" }
+sub move_clp_to_disk {
+ my ($fstab) = @_;
-sub move_clp_to_disk() {
- return if -e clp_on_disk() || $::local_install;
+ our $clp_on_disk;
+ return if $clp_on_disk || $::local_install;
+ my $clp_name = 'mdkinst.clp';
my ($loop, $current_clp) = devices::find_clp_loop($clp_name) or return;
- log::l("move_clp_to_disk: copying $current_clp to ", clp_on_disk());
- cp_af($current_clp, clp_on_disk());
- run_program::run('losetup', '-r', $loop, clp_on_disk());
+ my $clp_size = (-s $current_clp) / 1024; #- put in KiB
+
+ my $clp_dir;
+ if (availableRamMB() > 400) {
+ $clp_dir = '/tmp'; #- on tmpfs
+ } else {
+ my $tmp = fs::get::mntpoint2part('/tmp', $fstab);
+ if ($tmp && fs::df($tmp, $::prefix) / 2 > $clp_size * 1.2) { #- we want at least 20% free afterwards
+ $clp_dir = "$::prefix/tmp";
+ } else {
+ my $root = fs::get::mntpoint2part('/', $fstab);
+ my $root_free_MB = fs::df($root, $::prefix) / 2 / 1024;
+ my $wanted_size_MB = $o->{isUpgrade} || fs::get::mntpoint2part('/usr', $fstab) ? 150 : 300;
+ log::l("clp: root free $root_free_MB MB, wanted at least $wanted_size_MB MB");
+ if ($root_free_MB > $wanted_size_MB) {
+ $clp_dir = $tmp ? $::prefix : "$::prefix/tmp";
+ } else {
+ $clp_dir = '/tmp'; #- on tmpfs
+ if (availableRamMB() < 200) {
+ log::l("ERROR: not much ram (" . availableRamMB() . " MB), we're going in the wall!");
+ }
+ }
+ }
+ }
+ $clp_on_disk = "$clp_dir/$clp_name";
- #- in $current_clp eq "/tmp/$clp_name"
- unlink clp_on_tmpfs();
+ if ($current_clp ne $clp_on_disk) {
+ log::l("move_clp_to_disk: copying $current_clp to $clp_on_disk");
+ cp_af($current_clp, $clp_on_disk);
+ run_program::run('losetup', '-r', $loop, $clp_on_disk);
+ unlink $current_clp if $current_clp eq "/tmp/$clp_name";
+ }
}
#-###############################################################################