From 90234c148e98ce9f7d26b37218a5f2db4c8b5858 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@derf.homelinux.org>
Date: Fri, 19 Jun 2009 18:29:30 +0200
Subject: apt-why: Added --help

---
 bin/apt-why | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'bin')

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};
-- 
cgit v1.2.3