From d95f2d4240851529416ab1e2144f8068527d87b8 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 9 May 2007 16:24:59 +0000
Subject: - urpmi   o display "removing package ..." when removing an obsolete
 or conflicting     package (need perl-URPM 1.63), and not before   o in
 verbose mode, display "removing upgraded package ..."     (should make it
 more understandable by users)

---
 urpm/install.pm | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(limited to 'urpm')

diff --git a/urpm/install.pm b/urpm/install.pm
index 9630f444..9bf6c448 100644
--- a/urpm/install.pm
+++ b/urpm/install.pm
@@ -168,7 +168,15 @@ sub install {
 	$options{callback_uninst} = sub { 	    
 	    my ($_urpm, undef, undef, $subtype) = @_;
 	    if ($subtype eq 'start') {
-		print N("removing package %s", $trans->Element_name($index)), "\n" if $::verbose >= 0;
+		my ($name, $fullname) = ($trans->Element_name($index), $trans->Element_fullname($index));
+		my @previous = map { $trans->Element_name($_) } 0 .. ($index - 1);
+		# looking at previous packages in transaction
+		# we should be looking only at installed packages, but it should not give a different result
+		if (member($name, @previous)) {
+		    $urpm->{log}("removing upgraded package $fullname");
+		} else {
+		    print N("removing package %s", $fullname), "\n" if $::verbose >= 0;
+		}
 		$index++;
 	    }
 	};
-- 
cgit v1.2.1