| Subject: | [PATCH] Patch to stop warnings in Pod::Usage pod2usage |
This is a patch to fix a bug discussed in Perl bug #27576 (http://rt.perl.org/rt3/index.html?q=27576)
--- Usage.pm 2004-08-26 13:46:57.570707200 -0500
+++ /usr/lib/perl5/5.8.5/Pod/Usage.pm 2004-08-26 13:48:49.311382400 -0500
@@ -467,7 +467,8 @@
$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