diff options
| -rw-r--r-- | perl-install/install_any.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index b7065a6eb..8da749fed 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -1889,6 +1889,7 @@ sub write_fstab { } 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() { @@ -1900,7 +1901,7 @@ sub move_clp_to_disk() { run_program::run('losetup', '-r', $loop, clp_on_disk()); #- in $current_clp eq "/tmp/$clp_name" - unlink "/tmp/$clp_name"; + unlink clp_on_tmpfs(); } #-############################################################################### |