This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
One final Pod::Usage yak to shave...
authorSteve Peters <steve@fisharerojo.org>
Thu, 8 Dec 2005 19:21:25 +0000 (19:21 +0000)
committerSteve Peters <steve@fisharerojo.org>
Thu, 8 Dec 2005 19:21:25 +0000 (19:21 +0000)
p4raw-id: //depot/perl@26306

lib/Pod/Usage.pm

index cc03b5d..40e517e 100644 (file)
@@ -531,7 +531,7 @@ sub pod2usage {
                      '(?:\s*(?:AND|\/)\s*(?:OPTIONS|ARGUMENTS))?';
         $parser->select( 'SYNOPSIS', $opt_re, "DESCRIPTION/$opt_re" );
     }
-    elsif ($opts{"-verbose"} == 2) {
+    elsif ($opts{"-verbose"} >= 2 && $opts{"-verbose"} != 99) {
         $parser->select('.*');
     }
     elsif ($opts{"-verbose"} == 99) {