summaryrefslogtreecommitdiffstats
path: root/perl-install/lang.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-11-18 14:19:41 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-11-18 14:19:41 +0000
commit4f901b9b596dc1f5f310b0ea5468a7a71d2b3a9f (patch)
tree51b70a13a1b9cb17a4a4a50cbeae6c962fb57ee6 /perl-install/lang.pm
parentf0f3f892601f504aa5916c97d39261388992c023 (diff)
downloaddrakx-4f901b9b596dc1f5f310b0ea5468a7a71d2b3a9f.tar
drakx-4f901b9b596dc1f5f310b0ea5468a7a71d2b3a9f.tar.gz
drakx-4f901b9b596dc1f5f310b0ea5468a7a71d2b3a9f.tar.bz2
drakx-4f901b9b596dc1f5f310b0ea5468a7a71d2b3a9f.tar.xz
drakx-4f901b9b596dc1f5f310b0ea5468a7a71d2b3a9f.zip
since we don't use ramdisk but clp, some code is dead
(remove usingRamdisk(), check_prog(), remove_unused()...)
Diffstat (limited to 'perl-install/lang.pm')
-rw-r--r--perl-install/lang.pm29
1 files changed, 0 insertions, 29 deletions
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};
- }
- }
'';
}