diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-08-19 23:20:19 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-08-19 23:20:19 +0000 |
| commit | 528338fa75e8ceedbf17763bf5a5c094e92d0fe8 (patch) | |
| tree | eba70b060fea721ded1b6f1fb36462730f5390ee /perl-install/install_any.pm | |
| parent | 8c744cf3d47bf1295ced161e7ef9776a25efeeb8 (diff) | |
| download | drakx-528338fa75e8ceedbf17763bf5a5c094e92d0fe8.tar drakx-528338fa75e8ceedbf17763bf5a5c094e92d0fe8.tar.gz drakx-528338fa75e8ceedbf17763bf5a5c094e92d0fe8.tar.bz2 drakx-528338fa75e8ceedbf17763bf5a5c094e92d0fe8.tar.xz drakx-528338fa75e8ceedbf17763bf5a5c094e92d0fe8.zip | |
rename isCdNotEjectable in usingRamdisk, ensure no files are removed unless we're in ramdisk
Diffstat (limited to 'perl-install/install_any.pm')
| -rw-r--r-- | perl-install/install_any.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index e5bb280fa..bba61987d 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -1007,6 +1007,8 @@ sub check_prog { $f; return if grep { -x $_ } @l; + common::usingRamdisk() or log::l("ERROR: check_prog can't find the program $f and we're not using ramdisk"), return; + my ($f_) = map { m|^/| ? $_ : "/usr/bin/$_" } $f; remove_bigseldom_used(); foreach (@bigseldom_used_groups) { |