From 2c1bf60ce121d1c3b0f6bf5f0c7f05f2ab166ee6 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Fri, 17 May 2013 03:51:30 +0000
Subject: log which nonfree firmware packages are needed for X.org

---
 perl-install/install/any.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/perl-install/install/any.pm b/perl-install/install/any.pm
index 8cdceafff..3bae857ef 100644
--- a/perl-install/install/any.pm
+++ b/perl-install/install/any.pm
@@ -326,7 +326,9 @@ sub _nonfree_medium() { N("Nonfree Release") }
 sub is_firmware_needed {
     my ($o) = @_;
     require pkgs;
-    pkgs::detect_graphical_drivers($o->do_pkgs);
+    my @xpkgs = pkgs::detect_graphical_drivers($o->do_pkgs);
+    log::l("the following nonfree firmware(s) are needed for X.org: " . join(', ', @xpkgs)) if @xpkgs;
+    @xpkgs;
 }
 
 sub msg_if_firmware_needed {
-- 
cgit v1.2.1