diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-21 18:28:35 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-21 18:28:35 +0000 |
| commit | 39a52d2cf5d981eb05a120d82dd92cfdc59c5e74 (patch) | |
| tree | bcd604dc7782056e1d571732ff3189171575f5d3 /lib/Pod/Parser.pm | |
| parent | 43b92eec62ceb43611fa14fcb78594463f2fc874 (diff) | |
| download | perl-39a52d2cf5d981eb05a120d82dd92cfdc59c5e74.tar.gz | |
Apply some PodParser 1.18 patches; the Pod/Find.pm
patches cannot be applied since #6712 conflicts.
p4raw-id: //depot/perl@6754
Diffstat (limited to 'lib/Pod/Parser.pm')
| -rw-r--r-- | lib/Pod/Parser.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/Pod/Parser.pm b/lib/Pod/Parser.pm index 99615bcfb5..6782519d96 100644 --- a/lib/Pod/Parser.pm +++ b/lib/Pod/Parser.pm @@ -10,7 +10,7 @@ package Pod::Parser; use vars qw($VERSION); -$VERSION = 1.12; ## Current version of this package +$VERSION = 1.13; ## Current version of this package require 5.005; ## requires this Perl version or later ############################################################################# @@ -782,11 +782,11 @@ sub parse_text { ## Iterate over all sequence starts text (NOTE: split with ## capturing parens keeps the delimiters) $_ = $text; - my @tokens = split /([A-Z]<(?:<+\s+)?)/; + my @tokens = split /([A-Z]<(?:<+\s)?)/; while ( @tokens ) { $_ = shift @tokens; ## Look for the beginning of a sequence - if ( /^([A-Z])(<(?:<+\s+)?)$/ ) { + if ( /^([A-Z])(<(?:<+\s)?)$/ ) { ## Push a new sequence onto the stack of those "in-progress" ($cmd, $ldelim) = ($1, $2); $seq = Pod::InteriorSequence->new( |