diff options
| author | Angelo Naselli <anaselli@linux.it> | 2015-12-18 17:11:55 +0100 |
|---|---|---|
| committer | Angelo Naselli <anaselli@linux.it> | 2015-12-18 17:11:55 +0100 |
| commit | f7a34d5da21117880d21df16f8a920817af2b9cd (patch) | |
| tree | 77f39be628f016ada3c8690dad2aebb9c134acb7 /lib/ManaTools/Rpmdragora | |
| parent | b37c4052ffc321acea412a199f7c130c33741133 (diff) | |
| download | manatools-f7a34d5da21117880d21df16f8a920817af2b9cd.tar manatools-f7a34d5da21117880d21df16f8a920817af2b9cd.tar.gz manatools-f7a34d5da21117880d21df16f8a920817af2b9cd.tar.bz2 manatools-f7a34d5da21117880d21df16f8a920817af2b9cd.tar.xz manatools-f7a34d5da21117880d21df16f8a920817af2b9cd.zip | |
removed rpmdrake gui.list dependency
Diffstat (limited to 'lib/ManaTools/Rpmdragora')
| -rw-r--r-- | lib/ManaTools/Rpmdragora/pkg.pm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lib/ManaTools/Rpmdragora/pkg.pm b/lib/ManaTools/Rpmdragora/pkg.pm index 83c3e753..02e727d7 100644 --- a/lib/ManaTools/Rpmdragora/pkg.pm +++ b/lib/ManaTools/Rpmdragora/pkg.pm @@ -28,6 +28,7 @@ package ManaTools::Rpmdragora::pkg; use strict; use Sys::Syslog; +use File::ShareDir ':ALL'; use MDK::Common::Func; #qw(before_leaving any); use MDK::Common::DataStructure; # qw (uniq difference2 member add2hash put_in_hash); @@ -43,6 +44,7 @@ use ManaTools::Rpmdragora::open_db; use ManaTools::Rpmdragora::gurpm; use ManaTools::Rpmdragora::formatting; use ManaTools::Rpmdragora::rpmnew; +use ManaTools::Shared; use ManaTools::Shared::RunProgram qw(run get_stdout); use ManaTools::rpmdragora; use urpm; @@ -595,7 +597,10 @@ sub get_pkgs { my @meta_pkgs = grep { /^task-|^basesystem/ } keys %all_pkgs; - my @gui_pkgs = map { chomp; $_ } MDK::Common::File::cat_('/usr/share/rpmdrake/gui.lst'); + my $pkg_list = File::ShareDir::dist_file(ManaTools::Shared::distName(), 'modules/rpmdragora/gui.lst'); + + my @gui_pkgs = map { chomp; $_ } MDK::Common::File::cat_($pkg_list); + $DB::single = 1; # add meta packages to GUI packages list (which expect basic names not fullnames): push @gui_pkgs, map { (split_fullname($_))[0] } @meta_pkgs; |