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/lang.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index 053e7048c..178671070 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -487,7 +487,7 @@ sub get_x_fontset {
     my $c = $charsets{$l->[1]} or return;
     if (my $f = $bigfonts{$l->[1]}) {
 	my $dir = "/usr/X11R6/lib/X11/fonts";
-	if (! -e "$dir/$f" && $::isInstall) {
+	if (! -e "$dir/$f" && $::isInstall && common::usingRamdisk()) {
 	    unlink "$dir/$_" foreach values %bigfonts;
 	    install_any::remove_bigseldom_used ();
 	    install_any::getAndSaveFile ("$dir/$f");
-- 
cgit v1.2.1