From: Steve Peters <steve@fisharerojo.org>
Date: Thu, 26 Aug 2004 19:06:52 +0000 (+0000)
Subject: [perl #27576] [PATCH] Pod::Usage -exitvalue => "NOEXIT" requires -output be set ... 
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bc8c94cb1e936701f1bcc05c67b0d0624b30c0b0;p=p5sagit%2Fp5-mst-13.2.git

[perl #27576] [PATCH] Pod::Usage -exitvalue => "NOEXIT" requires -output be set (Doc bug)
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
--- 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