diff options
author | Steve Hay <SteveHay@planit.com> | 2009-01-30 10:27:25 +0000 |
---|---|---|
committer | Steve Hay <SteveHay@planit.com> | 2009-01-30 10:27:25 +0000 |
commit | 1bc4b319ba6d50bfdf5332d4378c85af1205184b (patch) | |
tree | 7252397d3d1ef704642a76b9b935ddb12fc427dd /pod/podselect.PL | |
parent | dc3c30404e1546ebc4bd89fa72dfcd44bcd246ee (diff) | |
download | perl-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.PL | 14 |
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); |