diff options
| author | Daniel Friesel <derf@derf.homelinux.org> | 2009-06-19 18:16:23 +0200 |
|---|---|---|
| committer | Daniel Friesel <derf@derf.homelinux.org> | 2009-06-19 18:16:23 +0200 |
| commit | 51e11c2096c969e16fcf06c804b09347ce039c5b (patch) | |
| tree | a5b4a78add5ac58ab9778e92b6ca0d7e01fb5c97 | |
| parent | ef2c53a42a329550c654e635fb204a6da03f25ec (diff) | |
apt-why: Added --all option to consider all available packages
| -rwxr-xr-x | bin/apt-why | 10 | ||||
| -rw-r--r-- | provides/zsh/completions/_apt-why | 1 |
2 files changed, 9 insertions, 2 deletions
diff --git a/bin/apt-why b/bin/apt-why index d27fef5..2d200e8 100755 --- a/bin/apt-why +++ b/bin/apt-why @@ -10,9 +10,11 @@ use Getopt::Long; my $cache = AptPkg::Cache->new; my $max_depth = 5; +my $all = 0; my @deptypes; my @default_deptypes = ('Depends', 'Recommends', 'Suggests'); GetOptions( + 'all!' => \$all, 'deptype=s' => \@deptypes, 'depth=i' => \$max_depth, ); @@ -31,7 +33,7 @@ sub revdeps { my $rdeps = $package->{RevDependsList}; foreach (@$rdeps) { if ( - $cache->{$_->{ParentPkg}{Name}}->{CurrentState} eq 'Installed' + ($all or $cache->{$_->{ParentPkg}{Name}}->{CurrentState} eq 'Installed') and "$_->{DepType}" ~~ @deptypes ) { next if ($_->{ParentPkg}{Name} ~~ @known); @@ -65,12 +67,16 @@ B<apt-why> [ I<options> ] I<package> =head1 DESCRIPTION B<apt-why> recursively displays I<package>'s reverse dependency, thus -showing which packages require I<package> on the system. +showing which installed packages require I<package> on the system. =head1 OPTIONS =over +=item B<--all> + +Consider all packages, not just installed ones + =item B<--depth>=I<integer> (default: 5) Specify the maximum recursion depth diff --git a/provides/zsh/completions/_apt-why b/provides/zsh/completions/_apt-why index ef02269..a014c45 100644 --- a/provides/zsh/completions/_apt-why +++ b/provides/zsh/completions/_apt-why @@ -7,6 +7,7 @@ typeset -a arguments arguments=( + '--all[consider all available packages]' '--depth=-[recursion depth]:recursion depth' '*--deptype=-[filter by dependency type]:dependency type:(Depends Recommends Suggests)' '*:package:_deb_packages "" avail' |