diff options
| -rwxr-xr-x | bin/apt-why (renamed from bin/apt-perl) | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/bin/apt-perl b/bin/apt-why index 60ca0f7..b9df057 100755 --- a/bin/apt-perl +++ b/bin/apt-why @@ -5,8 +5,8 @@ use AptPkg::Cache; use Switch; my $cache = AptPkg::Cache->new; -my $query = shift or die("No action given"); -my $packagename = shift or die("No packagename given"); +my $packagename = pop or dir("No packagename given"); +my $query = shift || ''; my $package = $cache->{$packagename}; unless($package) { @@ -100,12 +100,10 @@ sub print_deps { } } -if ($query eq 'why') { - print_deps(why($package->{RevDependsList})); -} elsif ($query eq 'why-not') { +if ($query eq 'not') { print_deps(why_not($package->{RevDependsList})); -} elsif ($query eq 'rdeps') { - print_deps(revdeps($package->{RevDependsList})); +} else { + print_deps(why($package->{RevDependsList})); } __END__ |