|
Lines 10-15
Link Here
|
| 10 |
use strict; |
10 |
use strict; |
| 11 |
|
11 |
|
| 12 |
use Getopt::Long qw(:config pass_through); |
12 |
use Getopt::Long qw(:config pass_through); |
|
|
13 |
use PortageXS; |
| 13 |
|
14 |
|
| 14 |
use Term::ANSIColor; |
15 |
use Term::ANSIColor; |
| 15 |
|
16 |
|
|
Lines 46-51
Link Here
|
| 46 |
$EARGV =~ s/\s+$//; |
47 |
$EARGV =~ s/\s+$//; |
| 47 |
$EARGV =~ s/\s+/ /g; |
48 |
$EARGV =~ s/\s+/ /g; |
| 48 |
|
49 |
|
|
|
50 |
my $pxs=PortageXS->new(); |
| 51 |
|
| 49 |
print color 'reset'; |
52 |
print color 'reset'; |
| 50 |
print "Usage: $0 [OPTIONS] [--] [EMERGE_OPTIONS] |
53 |
print "Usage: $0 [OPTIONS] [--] [EMERGE_OPTIONS] |
| 51 |
|
54 |
|
|
Lines 72-78
Link Here
|
| 72 |
|
75 |
|
| 73 |
my %progs = (); |
76 |
my %progs = (); |
| 74 |
|
77 |
|
| 75 |
my @progNames = split(/\n/,`eix -I |grep -B2 'Installed.*:.*9999' |grep -e '^*' -e '\\[I\\]' |awk '{print \$2}'`); |
78 |
my @progNames = $pxs->searchInstalledPackage(); |
| 76 |
|
79 |
|
| 77 |
foreach my $progName (@progNames) |
80 |
foreach my $progName (@progNames) |
| 78 |
{ |
81 |
{ |
