From cd2b3c05de8f31185f8858fee910cc68a2e3d413 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 18 Aug 2005 14:09:49 +0000
Subject: log more precisely the "naughty servers" unselected

---
 perl-install/install_any.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index ffabd64c3..49fa5c394 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -903,7 +903,7 @@ to upgrade as soon as possible.
 Do you really want to install these servers?
 ", join(", ", @naughtyServers))), [ N_("Yes"), N_("No") ], 'Yes') or return;
     if ($r ne 'Yes') {
-	log::l("unselecting naughty servers");
+	log::l("unselecting naughty servers: " . join(' ', @naughtyServers));
 	pkgs::unselectPackage($o->{packages}, pkgs::packageByName($o->{packages}, $_)) foreach @naughtyServers;
     }
     1;
-- 
cgit v1.2.1