summaryrefslogtreecommitdiff
path: root/lib/Pod/Parser.pm
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>2000-02-25 03:15:03 +0000
committerGurusamy Sarathy <gsar@cpan.org>2000-02-25 03:15:03 +0000
commitfaee740f668b7b35a18577bc0b2150b66dd521ec (patch)
tree08156d10f3ad98d3a53549c93617492a4c1b5905 /lib/Pod/Parser.pm
parent10fbe4816bc38f1e7e74150e6ea63c5ebc97963b (diff)
downloadperl-faee740f668b7b35a18577bc0b2150b66dd521ec.tar.gz
update PodParser to v1.10 (from Brad Appleton)
p4raw-id: //depot/perl@5252
Diffstat (limited to 'lib/Pod/Parser.pm')
-rw-r--r--lib/Pod/Parser.pm8
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/Pod/Parser.pm b/lib/Pod/Parser.pm
index bafabba093..22b3e49c61 100644
--- a/lib/Pod/Parser.pm
+++ b/lib/Pod/Parser.pm
@@ -10,7 +10,7 @@
package Pod::Parser;
use vars qw($VERSION);
-$VERSION = 1.093; ## Current version of this package
+$VERSION = 1.10; ## Current version of this package
require 5.004; ## requires this Perl version or later
#############################################################################
@@ -764,13 +764,13 @@ sub parse_text {
my @seq_stack = ($seq);
my ($ldelim, $rdelim) = ('', '');
- ## Iterate over all sequence starts/stops, newlines, & text
- ## (NOTE: split with capturing parens keeps the delimiters)
+ ## Iterate over all sequence starts text (NOTE: split with
+ ## capturing parens keeps the delimiters)
$_ = $text;
my @tokens = split /([A-Z]<(?:<+\s+)?)/;
while ( @tokens ) {
$_ = shift @tokens;
- ## Look for the beginning of a sequencd
+ ## Look for the beginning of a sequence
if ( /^([A-Z])(<(?:<+\s+)?)$/ ) {
## Push a new sequence onto the stack of those "in-progress"
($cmd, $ldelim) = ($1, $2);