diff options
Diffstat (limited to 'bin')
| -rwxr-xr-x | bin/apt-why | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/bin/apt-why b/bin/apt-why index 195d7bd..9276471 100755 --- a/bin/apt-why +++ b/bin/apt-why @@ -10,7 +10,6 @@ use Getopt::Long; my $cache = AptPkg::Cache->new; my $max_depth = 5; my $all = 0; -my $tabwidth; my $tabsign = "\t"; my @deptypes = qw/Depends Recommends Suggests/; my @known; @@ -58,18 +57,14 @@ sub recurse { GetOptions( 'all!' => \$all, - 'deptype=s' => sub {@deptypes = split(/,/, $_[1])}, + 'deptype=s' => sub { @deptypes = split(/,/, $_[1]) }, 'depth=i' => \$max_depth, - 'tabwidth=i' => \$tabwidth, + 'tabwidth=i' => sub { $tabsign = ' ' x $_[1] }, 'h|?|help' => \&usage, ); my $packagename = shift or die("Usage: $0 [options] <package>; see $0 --help\n"); -if (defined $tabwidth) { - $tabsign = ' ' x $tabwidth; -} - if (not defined $cache->{$packagename}) { die("No such package: $packagename\n"); } |