diff options
| author | Nicholas Clark <nick@ccl4.org> | 2012-02-05 15:35:37 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2012-02-05 15:35:37 +0100 |
| commit | 8fc3c209e136c6e13ef6e574f2fa4c0aaec425c5 (patch) | |
| tree | f1201217387d7e173111b3f4bb291f85fb754407 /Porting/bisect-runner.pl | |
| parent | 28726416d95521b60f6363eadbe1cdf67f66d00a (diff) | |
| download | perl-8fc3c209e136c6e13ef6e574f2fa4c0aaec425c5.tar.gz | |
bisect.pl --help should show the full documentation, not just the usage.
The initial paragraphs of documentation are actually more useful than most of
the options documentation. So show them too.
Suggested by David Leadbeater.
Diffstat (limited to 'Porting/bisect-runner.pl')
| -rwxr-xr-x | Porting/bisect-runner.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Porting/bisect-runner.pl b/Porting/bisect-runner.pl index 06845b5300..a17ef1ba8c 100755 --- a/Porting/bisect-runner.pl +++ b/Porting/bisect-runner.pl @@ -88,7 +88,7 @@ my ($target, $j, $match) = @options{qw(target jobs match)}; @ARGV = ('sh', '-c', 'cd t && ./perl TEST base/*.t') if $options{validate} && !@ARGV; -pod2usage(exitval => 0, verbose => 1) if $options{usage}; +pod2usage(exitval => 0, verbose => 2) if $options{usage}; pod2usage(exitval => 255, verbose => 1) unless @ARGV || $match || $options{'test-build'} || defined $options{'one-liner'}; pod2usage(exitval => 255, verbose => 1) |