This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
bisect.pl --help should show the full documentation, not just the usage.
authorNicholas Clark <nick@ccl4.org>
Sun, 5 Feb 2012 14:35:37 +0000 (15:35 +0100)
committerNicholas Clark <nick@ccl4.org>
Sun, 5 Feb 2012 14:35:37 +0000 (15:35 +0100)
The initial paragraphs of documentation are actually more useful than most of
the options documentation. So show them too.

Suggested by David Leadbeater.

Porting/bisect-runner.pl

index 06845b5..a17ef1b 100755 (executable)
@@ -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)