Package: whohas
Version: 0.22-2
Severity: wishlist
Tags: patch
Hi Philipp and Jonathan,
whohas --help
will send out a load of queries about a "--help" package.
While it may be unwise to rely to all commands having a --help option, it's
nice if they do.
The attached patch goes on top of the Getopt::Long patch that I've just sent.
Cheers,
Steve
commit 48bfa55aeabc2b9c06ace0f0ddae079496446b95
Author: Steve Cotton <st...@s.cotton.clara.co.uk>
Date: Thu Jan 29 12:13:50 2009 +0000
Add help option
diff --git a/program/whohas b/program/whohas
index 7eb8da7..0aa13a0 100755
--- a/program/whohas
+++ b/program/whohas
@@ -64,11 +64,18 @@ my $here = 0;
use Getopt::Long;
my @option_distro;
my $option_nothreads;
+my $option_help;
GetOptions(
"d=s" => \...@option_distro,
"no-threads" => \$option_nothreads,
+ "help" => \$option_help,
);
+if ($option_help) {
+ print "Usage: $0 [--no-threads] [-d Dist1[,Dist2[,Dist3...]]]
pkgname\n";
+ exit 0;
+}
+
if (@ARGV > 1) {
die "Error:\tToo many parameters. Usage: $0 [--no-threads] [-d
Dist1[,Dist2[,Dist3...]]] pkgname\n";
} elsif (@ARGV < 1) {
