From d9ae3ed697eb261d17594f2f0b610cb8038fff31 Mon Sep 17 00:00:00 2001
From: Sitaram Chamarty <sitaram@atc.tcs.com>
Date: Mon, 27 Feb 2012 19:58:36 +0530
Subject: [PATCH] sshkeys-lint learns '-h'

---
 src/sshkeys-lint | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/sshkeys-lint b/src/sshkeys-lint
index 96c027f..a18a306 100755
--- a/src/sshkeys-lint
+++ b/src/sshkeys-lint
@@ -8,7 +8,8 @@ use warnings;
 use Getopt::Long;
 my $admin = 0;
 my $quiet = 0;
-GetOptions('admin|a=s' => \$admin, 'quiet|q' => \$quiet);
+my $help  = 0;
+GetOptions('admin|a=s' => \$admin, 'quiet|q' => \$quiet, 'help|h' => $help);
 
 use Data::Dumper;
 $Data::Dumper::Deepcopy = 1;
@@ -31,7 +32,7 @@ sub msg {
     print "sshkeys-lint: " . ( $warning ? "WARNING: " : "" ) . $_ for @_;
 }
 
-@ARGV or not -t or usage();
+usage() if not @ARGV and -t or $help;
 our @pubkeyfiles = @ARGV; @ARGV = ();
 
 # ------------------------------------------------------------------------