diff options
Diffstat (limited to 'bin')
-rwxr-xr-x | bin/apt-why | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/bin/apt-why b/bin/apt-why index 54dc24b..f5c2093 100755 --- a/bin/apt-why +++ b/bin/apt-why @@ -17,6 +17,7 @@ GetOptions( 'all!' => \$all, 'deptype=s' => \@deptypes, 'depth=i' => \$max_depth, + 'h|?|help' => \&usage, ); my $packagename = shift or die("No packagename given"); my @known; @@ -26,6 +27,10 @@ unless (@deptypes) { @deptypes = @default_deptypes; } +sub usage { + exec('perldoc', '-F', $0) or die("See perldoc -F $0"); +} + sub revdeps { my $name = shift; my $package = $cache->{$name}; |