diff options
| author | Olivier Blin <blino@mageia.org> | 2012-10-13 21:52:19 +0000 |
|---|---|---|
| committer | Olivier Blin <blino@mageia.org> | 2012-10-13 21:52:19 +0000 |
| commit | 70013f62f79353910e5d1358eabb045a1b375bff (patch) | |
| tree | 10d75bdb3719b3c921738ef2e12d92d1de6a8d20 /perl-install/pkgs.pm | |
| parent | 43cb1939cb424110d1606db96c9aad791183cb25 (diff) | |
| download | drakx-70013f62f79353910e5d1358eabb045a1b375bff.tar drakx-70013f62f79353910e5d1358eabb045a1b375bff.tar.gz drakx-70013f62f79353910e5d1358eabb045a1b375bff.tar.bz2 drakx-70013f62f79353910e5d1358eabb045a1b375bff.tar.xz drakx-70013f62f79353910e5d1358eabb045a1b375bff.zip | |
debug remove packages feature
Diffstat (limited to 'perl-install/pkgs.pm')
| -rw-r--r-- | perl-install/pkgs.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index ce22d1a58..58f14b161 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -168,7 +168,9 @@ sub simple_read_rpmsrate { sub detect_rpmsrate_hardware_packages { my ($o_match_all_hardware, $ignore_flags) = @_; - grep { !/openoffice|java/ } simple_read_rpmsrate($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) ]); } sub detect_graphical_drivers { @@ -185,7 +187,7 @@ sub detect_graphical_drivers { } my @drivers = grep { $_ } uniq(map { $_->{Driver2} } @cards); - map { Xconfig::proprietary::pkgs_for_Driver2($_, $do_pkgs) } @drivers; + map { Xconfig::proprietary::pkgs_for_Driver2($_, $do_pkgs), if_($card->{FIRMWARE}, $card->{FIRMWARE}) } @drivers; } sub detect_network_drivers { |