summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--NEWS2
-rw-r--r--urpm/install.pm6
2 files changed, 5 insertions, 3 deletions
diff --git a/NEWS b/NEWS
index 53a1384d..51c4f7d8 100644
--- a/NEWS
+++ b/NEWS
@@ -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";