diff options
| -rw-r--r-- | NEWS | 2 | ||||
| -rw-r--r-- | urpm/install.pm | 6 |
2 files changed, 5 insertions, 3 deletions
@@ -5,6 +5,8 @@ - urpmq o --whatrequires: fix skipping packages through provides provided by other packages, when the other package is the same pkg name (#31773) +- library + o urpm::install: export %readmes so that rpmdrake can access it Version 4.9.27 - 18 June 2007, by Pascal "Pixel" Rigaux diff --git a/urpm/install.pm b/urpm/install.pm index 189e96f8..f8a9ebb6 100644 --- a/urpm/install.pm +++ b/urpm/install.pm @@ -147,7 +147,7 @@ sub install { if (!$options{nodeps} && (@l = $trans->check(%options))) { } elsif (!$options{noorder} && (@l = $trans->order)) { } else { - my %readmes; + $urpm->{readmes} = {}; my $index; my $fh; #- assume default value for some parameter. @@ -164,7 +164,7 @@ sub install { my $pkg = $urpm->{depslist}[$pkgid]; my $fullname = $pkg->fullname; my $trtype = $pkg->flag_installed ? '(upgrade|update)' : 'install'; - foreach ($pkg->files) { /\bREADME(\.$trtype)?\.urpmi$/ and $readmes{$_} = $fullname } + foreach ($pkg->files) { /\bREADME(\.$trtype)?\.urpmi$/ and $urpm->{readmes}{$_} = $fullname } close $fh if defined $fh; }; $options{callback_uninst} = sub { @@ -197,7 +197,7 @@ sub install { } if ($::verbose >= 0) { - foreach (keys %readmes) { + foreach (keys %{$urpm->{readmes}}) { print "-" x 70, "\n", N("More information on package %s", $readmes{$_}), "\n"; print cat_(($urpm->{root} || '') . $_); print "-" x 70, "\n"; |