From 7de76ee5da413f5bd4f7ad227c1fdec10863ca9d Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@derf.homelinux.org>
Date: Sat, 9 Jan 2010 15:14:06 +0100
Subject: apt-why: Minor source style fix

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

(limited to 'bin')

diff --git a/bin/apt-why b/bin/apt-why
index 38c967e..0c67cb6 100755
--- a/bin/apt-why
+++ b/bin/apt-why
@@ -13,13 +13,6 @@ my $all = 0;
 my $tabwidth;
 my $tabsign = "\t";
 my @deptypes = qw/Depends Recommends Suggests/;
-GetOptions(
-	'all!'       => \$all,
-	'deptype=s'  => sub {@deptypes = split(/,/, $_[1])},
-	'depth=i'    => \$max_depth,
-	'tabwidth=i' => \$tabwidth,
-	'h|?|help'   => \&usage,
-);
 my $packagename = shift or die("Usage: $0 [options] <package>; see $0 --help\n");
 my @known;
 
@@ -64,6 +57,14 @@ sub recurse {
 	return;
 }
 
+GetOptions(
+	'all!'       => \$all,
+	'deptype=s'  => sub {@deptypes = split(/,/, $_[1])},
+	'depth=i'    => \$max_depth,
+	'tabwidth=i' => \$tabwidth,
+	'h|?|help'   => \&usage,
+);
+
 if (defined $tabwidth) {
 	$tabsign = ' ' x $tabwidth;
 }
-- 
cgit v1.2.3