[perl #27576] [PATCH] Pod::Usage -exitvalue => "NOEXIT" requires -output be set ...

From: "Steve Peters via RT" <perlbug-followup@perl.org>
Message-ID: <rt-3.0.11-27576-94411.2.28321880730803@perl.org>

p4raw-id: //depot/perl@23327

diff --git a/lib/Pod/Usage.pm b/lib/Pod/Usage.pm
index f363b3a..236ef65 100644 (file)
--- a/lib/Pod/Usage.pm
+++ b/lib/Pod/Usage.pm
@@ -10,7 +10,7 @@
 package Pod::Usage;
 
 use vars qw($VERSION);
-$VERSION = 1.16;  ## Current version of this package
+$VERSION = 1.16_01;  ## Current version of this package
 require  5.005;    ## requires this Perl version or later
 
 =head1 NAME
@@ -467,7 +467,8 @@ sub pod2usage {
         $opts{"-exitval"} = ($opts{"-verbose"} > 0) ? 1 : 2;
     }
     elsif (! defined $opts{"-verbose"}) {
-        $opts{"-verbose"} = ($opts{"-exitval"} < 2);
+        $opts{"-verbose"} = (lc($opts{"-exitval"}) eq "noexit" ||
+                             $opts{"-exitval"} < 2);
     }
 
     ## Default the output file