diff options
author | Daniel Friesel <derf@derf.homelinux.org> | 2010-01-09 15:14:06 +0100 |
---|---|---|
committer | Daniel Friesel <derf@derf.homelinux.org> | 2010-01-09 15:14:06 +0100 |
commit | 7de76ee5da413f5bd4f7ad227c1fdec10863ca9d (patch) | |
tree | 9a4dec95bfdae37ab60705384a7a17f034dace94 /bin/apt-why | |
parent | 12f4b49bb5431ac9e8e5759a78d41dd5fc3c5385 (diff) |
apt-why: Minor source style fix
Diffstat (limited to 'bin/apt-why')
-rwxr-xr-x | bin/apt-why | 15 |
1 files changed, 8 insertions, 7 deletions
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; } |