One final Pod::Usage yak to shave...

p4raw-id: //depot/perl@26306

diff --git a/lib/Pod/Usage.pm b/lib/Pod/Usage.pm
index cc03b5d..40e517e 100644 (file)
--- a/lib/Pod/Usage.pm
+++ b/lib/Pod/Usage.pm
@@ -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) {