Commit 68c30820 authored by Gavin Brown's avatar Gavin Brown
Browse files

don't use Getopt::Long

parent 938d6cc8
......@@ -8,7 +8,7 @@ dnslg - A command line interface to the dns-lg DNS Looking Glass service.
# ARGUMENTS
- --help
- --help | -h
Display this help message
......
......@@ -6,11 +6,8 @@ use File::Basename qw(basename);
use File::Slurp;
use Term::ANSIColor qw(:constants);
use Pod::Usage;
use Getopt::Long;
my $help;
GetOptions('help' => $help);
pod2usage(1) if ($help);
pod2usage(1) if ($ARGV[0] eq '-h' || $ARGV[0] eq '--help');
my $qname = shift || 'example.com';
my $qtype = shift || 'A';
......@@ -67,7 +64,7 @@ dnslg - A command line interface to the dns-lg DNS Looking Glass service.
=over
=item --help
=item --help | -h
Display this help message
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment