diff options
| -rwxr-xr-x | bin/apt-why | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/bin/apt-why b/bin/apt-why index 9276471..bcec4e9 100755 --- a/bin/apt-why +++ b/bin/apt-why @@ -15,7 +15,7 @@ my @deptypes = qw/Depends Recommends Suggests/; my @known; sub usage { - exec('perldoc', '-F', $0) or die("See perldoc -F $0"); + exec('perldoc', '-F', $0) or die("See perldoc -F $0\n"); } sub revdeps { @@ -27,9 +27,9 @@ sub revdeps { foreach my $dependency (@{$rdeps}) { if ( not $dependency->{ParentPkg}{Name} ~~ @known - and ($all or $cache->{$dependency->{ParentPkg}{Name}}->{CurrentState} eq 'Installed') - and "$dependency->{DepType}" ~~ @deptypes - ) { + and ($all or $cache->{ $dependency->{ParentPkg}{Name} }->{CurrentState} eq 'Installed') + and "$dependency->{DepType}" ~~ @deptypes ) + { push(@return, $dependency->{ParentPkg}{Name}); } } |