Combine GetOpt::Long options
This commit is contained in:
parent
41ba29d218
commit
133b271208
|
@ -72,10 +72,8 @@ MAIN: {
|
||||||
my $workdir = $FindBin::RealBin;
|
my $workdir = $FindBin::RealBin;
|
||||||
|
|
||||||
unless (GetOptions(
|
unless (GetOptions(
|
||||||
'out=s' => \$out,
|
'out|O=s' => \$out,
|
||||||
'O=s' => \$out,
|
'block-ip|i=s' => \$block_ip,
|
||||||
'i=s' => \$block_ip,
|
|
||||||
'block-ip=s' => \$block_ip,
|
|
||||||
)) {
|
)) {
|
||||||
exit 2;
|
exit 2;
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue