summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xbin/efa9
1 files changed, 3 insertions, 6 deletions
diff --git a/bin/efa b/bin/efa
index 7cd3bbb..b55ffc3 100755
--- a/bin/efa
+++ b/bin/efa
@@ -16,9 +16,11 @@ my ($test_dump, $test_parse);
my $efa;
my (@from, @to, @via, $from_type, $to_type, $via_type);
my $opt = {
+ 'help' => sub { exec('perldoc', '-F', $0) },
'ignore-info' => \$ignore_info,
'from' => \@from,
'to' => \@to,
+ 'version' => sub { say "efa version $VERSION"; exit 0 },
'via' => \@via,
};
@@ -49,12 +51,7 @@ GetOptions(
via=s@{2}
walk-speed|w=s
},
-) or die("Please see $0 --help\n");
-
-if ($opt->{'version'}) {
- say "efa version $VERSION";
- exit 0;
-}
+) or die("Please see perldoc -F $0\n");
if (not (@from and @to)) {
if (@ARGV == 4) {