diff options
Diffstat (limited to 'perl-install/install/pkgs.pm')
| -rw-r--r-- | perl-install/install/pkgs.pm | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/perl-install/install/pkgs.pm b/perl-install/install/pkgs.pm index 70769dfaa..33b33a1c0 100644 --- a/perl-install/install/pkgs.pm +++ b/perl-install/install/pkgs.pm @@ -688,6 +688,11 @@ sub installTransactionClosure { } } + if (my $p = packageByName($packages, 'mdv-rpm-summary')) { + #- if it is selected, make it the first package + exists $id2pkg->{$p->id} and unshift @l, $p->id; + } + my %closure; foreach my $id (@l) { my @l2 = $id; @@ -783,6 +788,9 @@ sub install { @transToInstall = grep { if ($_->flag_installed || !packageMedium($packages, $_)->{selected}) { + if ($_->name eq 'mdv-rpm-summary' && $_->flag_installed) { + install::pkgs::setup_rpm_summary_translations(); + } $_->free_header; 0; } else { @@ -1033,6 +1041,15 @@ sub remove { } } +sub setup_rpm_summary_translations { + my @domains = qw(rpm-summary-contrib rpm-summary-devel rpm-summary-main); + push @::textdomains, @domains; + foreach (@domains) { + Locale::gettext::bind_textdomain_codeset($_, 'UTF-8'); + Locale::gettext::bindtextdomain($_, "$::prefix/usr/share/locale"); + } +} + sub selected_leaves { my ($packages) = @_; my $provides = $packages->{provides}; |