summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDaniel Friesel <derf@derf.homelinux.org>2010-04-05 12:05:03 +0200
committerDaniel Friesel <derf@derf.homelinux.org>2010-04-05 12:05:03 +0200
commit96ed4bc88c97a265f60dac2abf8066db0a410089 (patch)
treece4cf080bf31bd634eeaabb5999e378c248e8fc8
parent88650d91dc4949e1ad7f4008bef56db3543eb24e (diff)
Some more stylistic fixes
-rwxr-xr-xbin/apt-why8
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});
}
}