apt-why: Added --help

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};