apt-why: Shorten --help

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");