diff options
author | Sven Eden <sven.eden@gmx.de> | 2013-02-02 11:12:18 +0100 |
---|---|---|
committer | Sven Eden <sven.eden@gmx.de> | 2013-02-02 11:12:18 +0100 |
commit | bb65cf92173654d1725e94214fc59a5596faed57 (patch) | |
tree | 92656cc88cd5e1089ac08cf6944d25ab25b31f78 /Portage.pm | |
parent | Moved EPREFIX back to _EPRIX and eventually implemented the parsing of packag... (diff) | |
download | ufed-bb65cf92173654d1725e94214fc59a5596faed57.tar.gz ufed-bb65cf92173654d1725e94214fc59a5596faed57.tar.bz2 ufed-bb65cf92173654d1725e94214fc59a5596faed57.zip |
removed the parsing of PKGUSE, as it is irrelevant which use flags _were_ enabled, ufed must care about flags that _are_ enabled.
Diffstat (limited to 'Portage.pm')
-rw-r--r-- | Portage.pm | 30 |
1 files changed, 15 insertions, 15 deletions
@@ -630,7 +630,7 @@ sub _read_packages { # loop through all openable directories in cat while(my $pkg = readdir $catdir) { next if $pkg eq '.' or $pkg eq '..'; - my @puse = (); +# my @puse = (); my @iuse = (); # Load IUSE to learn which use flags the package in this version knows @@ -642,12 +642,12 @@ sub _read_packages { } # Load PKGUSE to learn which use flags have been set when this package was emerged - my $fpuse = "${_EPREFIX}/var/db/pkg/$cat/$pkg/PKGUSE"; - if(open my $use, '<', $fpuse) { - local $/; - @puse = split ' ', <$use>; - close $use; - } +# my $fpuse = "${_EPREFIX}/var/db/pkg/$cat/$pkg/PKGUSE"; +# if(open my $use, '<', $fpuse) { +# local $/; +# @puse = split ' ', <$use>; +# close $use; +# } # could be shortened, but make sure not to strip off part of the name $pkg =~ s/-\d+(?:\.\d+)*\w?(?:_(?:alpha|beta|pre|rc|p)\d*)?(?:-r\d+)?$//; @@ -665,14 +665,14 @@ sub _read_packages { $_use_temp->{$flag}{"local"}{$pkg}{installed} = 1; $_use_temp->{$flag}{global}{installed} = 1; } ## End of looping IUSE - for my $flag (@puse) { - my $state = $flag =~ s/^-// || 0; - - if ( defined($_use_temp->{$flag}{global}) - && defined($_use_temp->{$flag}{"local"}{$pkg})) { - $_use_temp->{$flag}{"local"}{$pkg}{"package"} = $state ? -1 : 0; - } - } ## End of looping PKGUSE +# for my $flag (@puse) { +# my $state = $flag =~ s/^-// || 0; +# +# if ( defined($_use_temp->{$flag}{global}) +# && defined($_use_temp->{$flag}{"local"}{$pkg})) { +# $_use_temp->{$flag}{"local"}{$pkg}{"package"} = $state ? -1 : 0; +# } +# } ## End of looping PKGUSE } closedir $catdir; |