diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-03-13 16:41:05 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-03-13 16:41:05 +0000 |
| commit | d5c61f7c3478189627500a82494061b415064f59 (patch) | |
| tree | bd9c2cc671259a1b0529c884d7696e9cf23f036c /lib/Pod/Select.pm | |
| parent | 719b43e8a7892cfc854b9123fcad88c53828b0b9 (diff) | |
| download | perl-d5c61f7c3478189627500a82494061b415064f59.tar.gz | |
Upgrade to Pod::Parser 1.30
p4raw-id: //depot/perl@24034
Diffstat (limited to 'lib/Pod/Select.pm')
| -rw-r--r-- | lib/Pod/Select.pm | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/lib/Pod/Select.pm b/lib/Pod/Select.pm index 8b98544338..1cc14dff4b 100644 --- a/lib/Pod/Select.pm +++ b/lib/Pod/Select.pm @@ -10,7 +10,7 @@ package Pod::Select; use vars qw($VERSION); -$VERSION = 1.13; ## Current version of this package +$VERSION = 1.30; ## Current version of this package require 5.005; ## requires this Perl version or later ############################################################################# @@ -505,7 +505,8 @@ sub is_selected { ## Keep track of current sections levels and headings $_ = $paragraph; - if (/^=((?:sub)*)(?:head(?:ing)?|sec(?:tion)?)(\d*)\s+(.*)\s*$/) { + if (/^=((?:sub)*)(?:head(?:ing)?|sec(?:tion)?)(\d*)\s+(.*)\s*$/) + { ## This is a section heading command my ($level, $heading) = ($2, $3); $level = 1 + (length($1) / 3) if ((! length $level) || (length $1)); @@ -581,15 +582,15 @@ filenames are given). sub podselect { my(@argv) = @_; - my %defaults = (); + my %defaults = (); my $pod_parser = new Pod::Select(%defaults); my $num_inputs = 0; my $output = ">&STDOUT"; - my %opts = (); + my %opts; local $_; for (@argv) { if (ref($_)) { - next unless (ref($_) eq 'HASH'); + next unless (ref($_) eq 'HASH'); %opts = (%defaults, %{$_}); ##------------------------------------------------------------- @@ -750,4 +751,4 @@ Tom Christiansen E<lt>tchrist@mox.perl.comE<gt> =cut 1; - +# vim: ts=4 sw=4 et |