From 170ccdce77e9d04ce68791a37b96176d5a3dc5d6 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@derf.homelinux.org>
Date: Mon, 19 Oct 2009 18:32:24 +0200
Subject: A little more code beautification

---
 bin/apt-why | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'bin')

diff --git a/bin/apt-why b/bin/apt-why
index e0e4123..93a343f 100755
--- a/bin/apt-why
+++ b/bin/apt-why
@@ -12,7 +12,7 @@ my $max_depth = 5;
 my $all = 0;
 my $tabwidth;
 my $tabsign = "\t";
-my @deptypes = ('Depends', 'Recommends', 'Suggests');
+my @deptypes = qw/Depends Recommends Suggests/;
 GetOptions(
 	'all!'       => \$all,
 	'deptype=s'  => sub {@deptypes = split(/,/, $_[1])},
@@ -20,7 +20,7 @@ GetOptions(
 	'tabwidth=i' => \$tabwidth,
 	'h|?|help'   => \&usage,
 );
-my $packagename = shift or die("No packagename given");
+my $packagename = shift or die('No packagename given');
 my @known;
 
 sub usage {
@@ -33,13 +33,13 @@ sub revdeps {
 	my @return;
 	my $rdeps = $package->{RevDependsList};
 
-	foreach (@{$rdeps}) {
+	foreach my $dependency (@{$rdeps}) {
 		if (
-			not $_->{ParentPkg}{Name} ~~ @known
-			and ($all or $cache->{$_->{ParentPkg}{Name}}->{CurrentState} eq 'Installed')
-			and "$_->{DepType}" ~~ @deptypes
+			not $dependency->{ParentPkg}{Name} ~~ @known
+			and ($all or $cache->{$dependency->{ParentPkg}{Name}}->{CurrentState} eq 'Installed')
+			and "$dependency->{DepType}" ~~ @deptypes
 		) {
-			push(@return, $_->{ParentPkg}{Name});
+			push(@return, $dependency->{ParentPkg}{Name});
 		}
 	}
 
-- 
cgit v1.2.3