From 528338fa75e8ceedbf17763bf5a5c094e92d0fe8 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 19 Aug 2001 23:20:19 +0000
Subject: rename isCdNotEjectable in usingRamdisk, ensure no files are removed
 unless we're in ramdisk

---
 perl-install/install_any.pm | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'perl-install/install_any.pm')

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) {
-- 
cgit v1.2.1