From 84b83ba17b227b6cba56d5c64ecf8252e0050b65 Mon Sep 17 00:00:00 2001 From: Sven Eden Date: Mon, 11 Feb 2013 08:22:55 +0100 Subject: Added new pkguse field to global hash and to output string. --- Portage.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'Portage.pm') diff --git a/Portage.pm b/Portage.pm index fed45d9..a1e0f78 100644 --- a/Portage.pm +++ b/Portage.pm @@ -151,8 +151,8 @@ sub _add_flag { my ($flag, $pkg, $descKey) = @_; - if ($descKey =~ /^\[(.*)\](-?\d+):(-?\d+):(-?\d+):(-?\d+):(-?\d+):(-?\d+)$/ ) { - my ($descr, $conf, $default, $forced, $installed, $masked, $package) + if ($descKey =~ /^\[(.*)\](-?\d+):(-?\d+):(-?\d+):(-?\d+):(-?\d+):(-?\d+):(-?\d+)$/ ) { + my ($descr, $conf, $default, $forced, $installed, $masked, $package, $pkguse) = ($1, $2, $3, $4, $5, $6, $7); my %data = (); @@ -167,6 +167,7 @@ sub _add_flag $data{"default"} = $default; %{$use_flags->{$flag}{global}} = %data; } else { + $data{pkguse} = $pkguse; %{$use_flags->{$flag}{"local"}{$pkg}} = %data; } ++$use_flags->{$flag}{count} if (length($descr)); -- cgit v1.2.3-65-gdbad