From: Steve Peters <steve@fisharerojo.org>
Date: Thu, 8 Dec 2005 19:21:25 +0000 (+0000)
Subject: One final Pod::Usage yak to shave...
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8fb801a9ea77d992d1f58ba5e2211b6b0404f946;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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) {