From 73dea3e1611694cc346137d5d389cca3b9117434 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 3 Aug 2007 13:07:22 +0000
Subject: - library   o urpm::install: export %readmes so that rpmdrake can
 access it

---
 urpm/install.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'urpm')

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";
-- 
cgit v1.2.1