From 062c48f65a0c160d68ab9d28d4d8f84c27597ce6 Mon Sep 17 00:00:00 2001
From: Olivier Blin <blino@mageia.org>
Date: Sat, 13 Oct 2012 21:54:18 +0000
Subject: revert bogus commit

---
 perl-install/pkgs.pm                           | 6 ++----
 perl-install/standalone/remove-unused-packages | 2 +-
 2 files changed, 3 insertions(+), 5 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 58f14b161..ce22d1a58 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -168,9 +168,7 @@ sub simple_read_rpmsrate {
 
 sub detect_rpmsrate_hardware_packages {
     my ($o_match_all_hardware, $ignore_flags) = @_;
-    my @l = grep { !/openoffice|java/ } simple_read_rpmsrate($o_match_all_hardware, $ignore_flags);
-    use Data::Dumper;
-    print Dumper([ sort(@l) ]);
+    grep { !/openoffice|java/ } simple_read_rpmsrate($o_match_all_hardware, $ignore_flags);
 }
 
 sub detect_graphical_drivers {
@@ -187,7 +185,7 @@ sub detect_graphical_drivers {
     }
 
     my @drivers = grep { $_ } uniq(map { $_->{Driver2} } @cards);
-    map { Xconfig::proprietary::pkgs_for_Driver2($_, $do_pkgs), if_($card->{FIRMWARE}, $card->{FIRMWARE}) } @drivers;
+    map { Xconfig::proprietary::pkgs_for_Driver2($_, $do_pkgs) } @drivers;
 }
 
 sub detect_network_drivers {
diff --git a/perl-install/standalone/remove-unused-packages b/perl-install/standalone/remove-unused-packages
index 4eb60c2e9..bc54c3e1c 100755
--- a/perl-install/standalone/remove-unused-packages
+++ b/perl-install/standalone/remove-unused-packages
@@ -6,6 +6,6 @@ use interactive;
 use do_pkgs;
 use standalone;
 
-my $in = interactive->vnew();#'su');
+my $in = interactive->vnew('su');
 my $do_pkgs = do_pkgs::do_pkgs($in);
 pkgs::remove_unused_packages($in, $do_pkgs);
-- 
cgit v1.2.1