- library

  o urpm::install: export %readmes so that rpmdrake can access it

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";