Combine GetOpt::Long options

This commit is contained in:
Dan Church 2023-09-04 10:08:36 -05:00
parent 41ba29d218
commit 133b271208
Signed by: h3xx
GPG key ID: EA2BF379CD2CDBD0

View file

@ -72,10 +72,8 @@ MAIN: {
my $workdir = $FindBin::RealBin;
unless (GetOptions(
'out=s' => \$out,
'O=s' => \$out,
'i=s' => \$block_ip,
'block-ip=s' => \$block_ip,
'out|O=s' => \$out,
'block-ip|i=s' => \$block_ip,
)) {
exit 2;
}