From 4f901b9b596dc1f5f310b0ea5468a7a71d2b3a9f Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 18 Nov 2004 14:19:41 +0000 Subject: since we don't use ramdisk but clp, some code is dead (remove usingRamdisk(), check_prog(), remove_unused()...) --- perl-install/lang.pm | 29 ----------------------------- 1 file changed, 29 deletions(-) (limited to 'perl-install/lang.pm') diff --git a/perl-install/lang.pm b/perl-install/lang.pm index 0c5de9bdf..134b2ce4c 100644 --- a/perl-install/lang.pm +++ b/perl-install/lang.pm @@ -858,25 +858,6 @@ sub l2pango_font { my $charset = l2charset($lang) or log::l("no charset found for lang $lang!"), return; my $font = charset2pango_font($charset); log::l("lang:$lang charset:$charset font:$font sfm:$charsets{$charset}[0]"); - - if (common::usingRamdisk()) { - if ($charsets{$charset}[0] !~ /lat|koi|UniCyr/) { - install_any::remove_bigseldom_used(); - unlink glob_('/usr/share/langs/*'); #- remove langs images - my @generic_fontfiles = qw(/usr/X11R6/lib/X11/fonts/12x13mdk.pcf.gz /usr/X11R6/lib/X11/fonts/18x18mdk.pcf.gz); - #- need to unlink first because the files actually exist (and are void); they must exist - #- because if not, when gtk starts, pango will recompute its cache file and exclude them - unlink($_), install_any::getAndSaveFile($_) foreach @generic_fontfiles; - } - - my %pango_modules = (arabic => 'ar|fa|ur', hangul => 'ko', hebrew => 'he|yi', indic => 'hi|bn|ta|te|mr', thai => 'th'); - foreach my $module (keys %pango_modules) { - next if $lang !~ /$pango_modules{$module}/; - install_any::remove_bigseldom_used(); - my ($pango_modules_dir) = glob('/usr/lib/pango/*/modules'); - install_any::getAndSaveFile("$pango_modules_dir/pango-$module-xft.so"); - } - } return $font; } @@ -1184,16 +1165,6 @@ sub load_mo { -s $_->{mofile} and return $_->{name} foreach @possible_langs; - if ($::isInstall && common::usingRamdisk()) { - foreach (@possible_langs) { - #- cleanup - eval { rm_rf($localedir) }; - eval { mkdir_p(dirname($_->{mofile})) }; - - install_any::getAndSaveFile($_->{mofile}); - -s $_->{mofile} and return $_->{name}; - } - } ''; } -- cgit v1.2.1