Commit aa5058fc authored by Ian Longden's avatar Ian Longden
Browse files

Exit if an unknown option is used.

parent 8dd14804
use strict;
use Getopt::Long;
use Getopt::Long qw(:config pass_through);
use XrefParser::BaseParser;
my ( $host, $port, $dbname,
......@@ -41,6 +41,16 @@ GetOptions(
'unzip' => \$unzip, # Force decompression of files
'help' => sub { usage(); exit(0); } );
if($ARGV[0]){
print STDERR "Unknown command line arguments:-\n";
foreach my $a (@ARGV){
print STDERR "\t".$a."\n";
}
print STDERR "Stopping script. Please fix the command line.\n";
print STDERR "use -help for full list of command line options.\n";;
exit(1);
}
my @species = split(/,/,join(',',$species));
my @sources = split(/,/,join(',',$sources));
my @notsource = split(/,/,join(',',$notsource));
......
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