mirror of
https://github.com/dkogan/feedgnuplot.git
synced 2025-05-05 22:11:12 +08:00
usage message now goes to STDOUT if --help given
This commit is contained in:
parent
e8e92082a1
commit
24a56fd617
@ -109,11 +109,18 @@ sub interpretCommandline
|
|||||||
'histogram=s@', 'binwidth=f', 'histstyle=s',
|
'histogram=s@', 'binwidth=f', 'histstyle=s',
|
||||||
'terminal=s',
|
'terminal=s',
|
||||||
'extraValuesPerPoint=i', 'help', 'dump',
|
'extraValuesPerPoint=i', 'help', 'dump',
|
||||||
'geometry=s') or pod2usage(1);
|
'geometry=s') or pod2usage( -exitval => 1,
|
||||||
|
-verbose => 1, # synopsis and args
|
||||||
|
-output => \*STDERR );
|
||||||
|
|
||||||
|
|
||||||
# handle various cmdline-option errors
|
# handle various cmdline-option errors
|
||||||
if ( $options->{help} )
|
if ( $options->{help} )
|
||||||
{ pod2usage(0); }
|
{
|
||||||
|
pod2usage( -exitval => 0,
|
||||||
|
-verbose => 1, # synopsis and args
|
||||||
|
-output => \*STDOUT );
|
||||||
|
}
|
||||||
|
|
||||||
# no global style if one isn't given
|
# no global style if one isn't given
|
||||||
$options->{curvestyleall} = '' unless defined $options->{curvestyleall};
|
$options->{curvestyleall} = '' unless defined $options->{curvestyleall};
|
||||||
|
Loading…
Reference in New Issue
Block a user