diff options
author | Daniel Friesel <derf@derf.homelinux.org> | 2010-04-05 12:05:03 +0200 |
---|---|---|
committer | Daniel Friesel <derf@derf.homelinux.org> | 2010-04-05 12:05:03 +0200 |
commit | 96ed4bc88c97a265f60dac2abf8066db0a410089 (patch) | |
tree | ce4cf080bf31bd634eeaabb5999e378c248e8fc8 | |
parent | 88650d91dc4949e1ad7f4008bef56db3543eb24e (diff) |
Some more stylistic fixes
-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}); } } |