This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[perl #27576] [PATCH] Pod::Usage -exitvalue => "NOEXIT" requires -output be set ...
authorSteve Peters <steve@fisharerojo.org>
Thu, 26 Aug 2004 19:06:52 +0000 (19:06 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 20 Sep 2004 08:23:58 +0000 (08:23 +0000)
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

lib/Pod/Usage.pm

index f363b3a..236ef65 100644 (file)
@@ -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