Commit a9586a07 authored by Penom Nom's avatar Penom Nom

Fix bug in help option.

parent f9d7dd5f
......@@ -68,6 +68,8 @@
#############################################################################################################################
use strict ;
use warnings ;
use Getopt::Long ;
use Pod::Usage ;
......@@ -81,6 +83,10 @@ MAIN:
my $sam = $ARGV[0] ;
my $csv = $ARGV[1] ;
my $help = 0 ;
GetOptions(
"help|h" => \$help
);
if( $help || @ARGV != 2 )
{
......
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