From 5551da62c1791549251c09b02a5d02d9bf0a589e Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Wed, 29 Jun 2011 00:20:09 +0200
Subject: [PATCH] efa: Add little help text, do not launch perldoc on --help
---
bin/efa | 13 ++++++++++---
1 file changed, 10 insertions(+), 3 deletions(-)
diff --git a/bin/efa b/bin/efa
index c916ca0..acd0550 100755
--- a/bin/efa
+++ b/bin/efa
@@ -15,17 +15,24 @@ my $ignore_info = 'Fahrradmitnahme';
my $efa;
my ( @from, @to, @via, $from_type, $to_type, $via_type );
my $opt = {
- 'help' => sub { exec( 'perldoc', '-F', $0 ) },
+ 'help' => \&show_help,
+ ,
'ignore-info' => \$ignore_info,
'from' => \@from,
'to' => \@to,
- 'version' => sub { say "efa version $VERSION"; exit 0 },
- 'via' => \@via,
+ 'version' => sub { say "efa version $VERSION"; exit 0 },
+ 'via' => \@via,
};
binmode( STDOUT, ':encoding(utf-8)' );
binmode( STDERR, ':encoding(utf-8)' );
+sub show_help {
+ say 'Usage: efa [options] <from-city> <from-stop> <to-city> <to-stop>';
+ say 'See also: man efa';
+ exit 0;
+}
+
sub handle_efa_exception {
my ($e) = @_;
--
GitLab