From 54af75fc5ae98319025da96056938cd6918f320e Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 10 Aug 2005 14:20:52 +0000 Subject: create clp_on_tmpfs() for future use --- perl-install/install_any.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'perl-install/install_any.pm') 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(); } #-############################################################################### -- cgit v1.2.1