diff options
| author | Steve Peters <steve@fisharerojo.org> | 2004-08-26 19:06:52 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-09-20 08:23:58 +0000 |
| commit | bc8c94cb1e936701f1bcc05c67b0d0624b30c0b0 (patch) | |
| tree | 97cfee60f73646d64df728a6a4070c8309db1808 /lib | |
| parent | 7c0e976d40017a166598b7de52585069637d2764 (diff) | |
| download | perl-bc8c94cb1e936701f1bcc05c67b0d0624b30c0b0.tar.gz | |
[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
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Pod/Usage.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/Pod/Usage.pm b/lib/Pod/Usage.pm index f363b3a4ce..236ef65c56 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 |