diff options
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; } |