Unverified Commit 42209aa2 authored by Gavin Brown's avatar Gavin Brown
Browse files

fix --help

parent eed5dd9d
...@@ -228,8 +228,10 @@ my $handlers = { ...@@ -228,8 +228,10 @@ my $handlers = {
}; };
if ($opt->{'help'}) { if ($opt->{'help'}) {
execute_command('help USAGE'); pod2usage(
exit; '-verbose' => 99,
'-sections' => 'USAGE',
);
} }
my $term = Term::ReadLine->new('pepper'); my $term = Term::ReadLine->new('pepper');
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment