diff options
| -rwxr-xr-x | bin/envstore | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/bin/envstore b/bin/envstore index 414d4a3..936a584 100755 --- a/bin/envstore +++ b/bin/envstore @@ -4,6 +4,7 @@ ## License: WTFPL <http://sam.zoy.org/wtfpl> use strict; use warnings; +use Pod::Usage; use Simplestore; my $store_file = "/tmp/.envstore-$>"; @@ -14,8 +15,13 @@ my $arg2 = shift; my ($key, $value); sub usage { - print STDERR "Invalid invocation - see perldoc -F $0\n"; - exit(1); + pod2usage( + -message => 'Syntax error', + -exitval => 1, + -verbose => 99, + -sections => 'SYNOPSIS|DESCRIPTION', + -output => \*STDERR, + ); } sub check_store { |