From b0e73f442c05ef721cd8bb3c75aa56353989e205 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Wed, 7 Sep 2016 11:48:27 +0200 Subject: Fix script name in version/help output --- bin/ura-m | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/bin/ura-m b/bin/ura-m index 76b05c8..e11b320 100755 --- a/bin/ura-m +++ b/bin/ura-m @@ -26,6 +26,7 @@ my $via; my ( $list_services, $service ); my $ura_base = 'http://ivu.aseag.de/interfaces/ura'; my $ura_version = 1; +my $script_name = (split(qr{/}, $0))[-1]; GetOptions( 'f|strftime=s' => \$strftime_format, @@ -93,7 +94,7 @@ my $status = Travel::Status::DE::URA->new( sub show_help { my ($code) = @_; - print "Usage: $0 [-pV] [-o ] [-l ] [-v ] " + print "Usage: $script_name [-pV] [-o ] [-l ] [-v ] " . "\n" . "See also: man ura-m\n"; @@ -112,7 +113,7 @@ sub show_services { } sub show_version { - say "$0 version ${VERSION}"; + say "$script_name version ${VERSION}"; exit 0; } -- cgit v1.2.3