summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-08-10 14:20:52 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-08-10 14:20:52 +0000
commit54af75fc5ae98319025da96056938cd6918f320e (patch)
treeb75dc25a1bbf73e6aa026d666e8ce2b33dbcdff8 /perl-install
parent8552e9ff99f2e28666f59ac4e73f7e963e13eeba (diff)
downloaddrakx-backup-do-not-use-54af75fc5ae98319025da96056938cd6918f320e.tar
drakx-backup-do-not-use-54af75fc5ae98319025da96056938cd6918f320e.tar.gz
drakx-backup-do-not-use-54af75fc5ae98319025da96056938cd6918f320e.tar.bz2
drakx-backup-do-not-use-54af75fc5ae98319025da96056938cd6918f320e.tar.xz
drakx-backup-do-not-use-54af75fc5ae98319025da96056938cd6918f320e.zip
create clp_on_tmpfs() for future use
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_any.pm3
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();
}
#-###############################################################################