Combine GetOpt::Long options

2023-09-04 10:08:36 -05:00 · 2023-09-04 10:08:36 -05:00 · 133b271208
parent 41ba29d218
commit 133b271208
1 changed files with 2 additions and 4 deletions
--- a/make-block.pl
+++ b/make-block.pl
@ -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;
    }