From 96ed4bc88c97a265f60dac2abf8066db0a410089 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Mon, 5 Apr 2010 12:05:03 +0200 Subject: Some more stylistic fixes --- bin/apt-why | 8 ++++---- 1 file 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}); } } -- cgit v1.2.3