diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-05-26 11:25:06 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-05-26 11:25:06 +0000 |
| commit | d020513c073f4daf7d97a5773967999f3b13705e (patch) | |
| tree | 5237d5bdc481d523c7e2c546f8507b54010850bd | |
| parent | 80859a877adf69c4e8f04b7dc92ca984ebb8cafa (diff) | |
| download | drakx-backup-do-not-use-d020513c073f4daf7d97a5773967999f3b13705e.tar drakx-backup-do-not-use-d020513c073f4daf7d97a5773967999f3b13705e.tar.gz drakx-backup-do-not-use-d020513c073f4daf7d97a5773967999f3b13705e.tar.bz2 drakx-backup-do-not-use-d020513c073f4daf7d97a5773967999f3b13705e.tar.xz drakx-backup-do-not-use-d020513c073f4daf7d97a5773967999f3b13705e.zip | |
some packages are only one locale dependent, but still don't require that locale, handle it using special cases
| -rwxr-xr-x | move/data/make_i18n_list | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/move/data/make_i18n_list b/move/data/make_i18n_list index f4c10ebaa..279bd8a5e 100755 --- a/move/data/make_i18n_list +++ b/move/data/make_i18n_list @@ -14,11 +14,24 @@ foreach my $list (glob("*.list")) { my @pkg_langs = map { /locales-(.*)/ } `$rpm -qa --qf "%{name}\n" locales-*`; +my %extra_pkgs = ( + hy => 'fonts-ttf-armenian', + ja => 'fonts-ttf-japanese', + kn => 'fonts-ttf-kannada', + ko => 'fonts-ttf-korean', + ta => 'fonts-ttf-tamil fonts-ttf-tscii fonts-bitmap-tscii', + th => 'fonts-ttf-thai', + zh => 'fonts-ttf-gb2312 taipeifonts fonts-ttf-big5', + el => 'fonts-type1-greek', + en => 'mandrake_doc-move-en', +); + foreach my $i18n (@pkg_langs) { #- $i18n_re is different from $i18n because of things like locales-no giving nb|nn|no my $i18n_re = join('|', uniq($i18n, map { if_(/locales-(\S+)/, $1) } `$rpm -q --provides locales-$i18n`)); my @pkgs = uniq("locales-$i18n", chomp_(`$rpm -q --qf "%{name}\n" --whatrequires locales-$i18n`)); + push @pkgs, split(' ', $extra_pkgs{$i18n} || ''); my ($dirs, $files) = partition { -d "$prefix$_" } uniq(chomp_(`$rpm -ql @pkgs`)); my @i18n_dirs = uniq(grep { m!/($i18n_re) (_[^/]*)? (\.[^/]*)? (\@[^/]*)?$!x } @$dirs); |