summaryrefslogtreecommitdiff
path: root/bin
diff options
context:
space:
mode:
authorDaniel Friesel <derf@derf.homelinux.org>2010-04-11 12:30:22 +0200
committerDaniel Friesel <derf@derf.homelinux.org>2010-04-11 12:30:22 +0200
commitf035b51f0e473dfeb5944477ee80554e5c911cd3 (patch)
tree589727fabd8ad4d1bd59396e2dea43b1436f4269 /bin
parent96ed4bc88c97a265f60dac2abf8066db0a410089 (diff)
apt-why: Shorten --help
Diffstat (limited to 'bin')
-rwxr-xr-xbin/apt-why6
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");