summaryrefslogtreecommitdiff
path: root/pod/podselect.PL
diff options
context:
space:
mode:
authorSteve Hay <SteveHay@planit.com>2009-01-30 10:27:25 +0000
committerSteve Hay <SteveHay@planit.com>2009-01-30 10:27:25 +0000
commit1bc4b319ba6d50bfdf5332d4378c85af1205184b (patch)
tree7252397d3d1ef704642a76b9b935ddb12fc427dd /pod/podselect.PL
parentdc3c30404e1546ebc4bd89fa72dfcd44bcd246ee (diff)
downloadperl-1bc4b319ba6d50bfdf5332d4378c85af1205184b.tar.gz
Upgrade to Pod-Parser-1.36.
Three local changes remain in blead: Blank lines "between" verbatim sections are now acceptible: http://perl5.git.perl.org/perl.git/commitdiff/caa547d Be less picky about what constitutes "numeric lists" in Pod: http://perl5.git.perl.org/perl.git/commitdiff/4df4f5d Changes made to contains_pod.t when upgrading to 1.34: http://perl5.git.perl.org/perl.git/commitdiff/fb59f97
Diffstat (limited to 'pod/podselect.PL')
-rw-r--r--pod/podselect.PL14
1 files changed, 7 insertions, 7 deletions
diff --git a/pod/podselect.PL b/pod/podselect.PL
index 138e076146..7fadd7366c 100644
--- a/pod/podselect.PL
+++ b/pod/podselect.PL
@@ -45,7 +45,7 @@ print OUT <<'!NO!SUBS!';
#############################################################################
use strict;
-use diagnostics;
+#use diagnostics;
=head1 NAME
@@ -113,13 +113,13 @@ use Getopt::Long;
## Define options
my %options = (
- "help" => 0,
- "man" => 0,
- "sections" => [],
+ 'help' => 0,
+ 'man' => 0,
+ 'sections' => [],
);
## Parse options
-GetOptions(\%options, "help", "man", "sections|select=s@") || pod2usage(2);
+GetOptions(\%options, 'help', 'man', 'sections|select=s@') || pod2usage(2);
pod2usage(1) if ($options{help});
pod2usage(-verbose => 2) if ($options{man});
@@ -127,8 +127,8 @@ pod2usage(-verbose => 2) if ($options{man});
pod2usage(2) if ((@ARGV == 0) && (-t STDIN));
## Invoke podselect().
-if (@{ $options{"sections"} } > 0) {
- podselect({ -sections => $options{"sections"} }, @ARGV);
+if (@{ $options{'sections'} } > 0) {
+ podselect({ -sections => $options{'sections'} }, @ARGV);
}
else {
podselect(@ARGV);