diff options
| -rwxr-xr-x | bin/apt-why | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/bin/apt-why b/bin/apt-why index bcec4e9..db7983d 100755 --- a/bin/apt-why +++ b/bin/apt-why @@ -14,10 +14,6 @@ my $tabsign = "\t"; my @deptypes = qw/Depends Recommends Suggests/; my @known; -sub usage { - exec('perldoc', '-F', $0) or die("See perldoc -F $0\n"); -} - sub revdeps { my $name = shift; my $package = $cache->{$name}; @@ -60,7 +56,7 @@ GetOptions( 'deptype=s' => sub { @deptypes = split(/,/, $_[1]) }, 'depth=i' => \$max_depth, 'tabwidth=i' => sub { $tabsign = ' ' x $_[1] }, - 'h|?|help' => \&usage, + 'h|?|help' => sub { exec('perldoc', '-F', $0) or die("See perldoc -F $0\n") }, ); my $packagename = shift or die("Usage: $0 [options] <package>; see $0 --help\n"); |