From f035b51f0e473dfeb5944477ee80554e5c911cd3 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@derf.homelinux.org>
Date: Sun, 11 Apr 2010 12:30:22 +0200
Subject: apt-why: Shorten --help

---
 bin/apt-why | 6 +-----
 1 file changed, 1 insertion(+), 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");
-- 
cgit v1.2.3