Change 23327 by rgs@no-spam on 2004/09/20 08:23:58
Subject: [perl #27576] [PATCH] Pod::Usage -exitvalue => "NOEXIT" requires -output be set (Doc bug)
From: "Steve Peters via RT" <perlbug-followup@no-spam>
Date: 26 Aug 2004 19:06:52 -0000
Message-ID: <rt-3.0.11-27576-94411.2.28321880730803@no-spam>
Affected files ...
... //depot/perl/lib/Pod/Usage.pm#20 edit
Differences ...
==== //depot/perl/lib/Pod/Usage.pm#20 (text) ====
Index: perl/lib/Pod/Usage.pm
--- perl/lib/Pod/Usage.pm#19~21975~ Sat Dec 27 10:12:33 2003
+++ perl/lib/Pod/Usage.pm Mon Sep 20 01:23:58 2004
@@no-spam -10,7 +10,7 @@no-spam
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
@@no-spam -467,7 +467,8 @@no-spam
$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
End of Patch.