From bc7d0ee56faa7443a8e731ca1bf0bbd504c45f6c Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Sun, 9 May 2010 11:03:08 +0200 Subject: Remove --tabwidth option --- bin/apt-why | 8 +------- 1 file changed, 1 insertion(+), 7 deletions(-) (limited to 'bin/apt-why') diff --git a/bin/apt-why b/bin/apt-why index fcf2486..e6a622e 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 $tabsign = "\t"; my @deptypes = qw/Depends Recommends Suggests/; my @known; @@ -41,7 +40,7 @@ sub recurse { my $name = shift; my $depth = (shift) + 1; - printf( "%s%s\n", $tabsign x ( $depth - 1 ), $name ); + printf( "%s%s\n", "\t" x ( $depth - 1 ), $name ); if ( $depth >= $max_depth ) { return; @@ -58,7 +57,6 @@ GetOptions( 'all!' => \$all, 'deptype=s' => sub { @deptypes = split( /,/, $_[1] ) }, 'depth=i' => \$max_depth, - 'tabwidth=i' => sub { $tabsign = q{ } x $_[1] }, 'h|?|help' => sub { exec( 'perldoc', '-F', $0 ) or die("See perldoc -F $0\n") }, ); @@ -108,10 +106,6 @@ Specify the maximum recursion depth Only show reverse dependencies which mach the specified I (comma separated list). Right now, possible types are Depends, Suggests, Recommends. -=item B<--tabwidth>=I - -Indent each recursion level with I spaces (by default: one tab) - =back =head1 EXIT STATUS -- cgit v1.2.3