diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-05-05 07:29:43 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-05-05 07:29:43 +0000 |
| commit | e9fdc7d2ad34e80787f760dcc04e2f23a1599092 (patch) | |
| tree | de10b8959034f0ef55fa27897fcf6ede1fb6d2e4 /lib/Pod/Parser.pm | |
| parent | 8d74ce1c73a4b1bd298f3cad65bbf1a36ccf0e4e (diff) | |
| download | perl-e9fdc7d2ad34e80787f760dcc04e2f23a1599092.tar.gz | |
upgrade Pod::Parser to v1.081 from CPAN
p4raw-id: //depot/perl@3304
Diffstat (limited to 'lib/Pod/Parser.pm')
| -rw-r--r-- | lib/Pod/Parser.pm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lib/Pod/Parser.pm b/lib/Pod/Parser.pm index b81b080cdb..9bc771db53 100644 --- a/lib/Pod/Parser.pm +++ b/lib/Pod/Parser.pm @@ -13,7 +13,7 @@ package Pod::Parser; use vars qw($VERSION); -$VERSION = 1.08; ## Current version of this package +$VERSION = 1.081; ## Current version of this package require 5.004; ## requires this Perl version or later ############################################################################# @@ -654,6 +654,7 @@ is a reference to the parse-tree object. ## an interior sequence looks like '-' or '=', but not '--' or '==' use vars qw( $ARROW_RE ); $ARROW_RE = join('', qw{ (?: [^=]+= | [^-]+- )$ }); +#$ARROW_RE = qr/(?:[^=]+=|[^-]+-)$/; ## 5.005+ only! sub parse_text { my $self = shift; @@ -672,7 +673,7 @@ sub parse_text { ## Convert method calls into closures, for our convenience my $xseq_sub = $expand_seq; my $xptree_sub = $expand_ptree; - if ($expand_seq eq 'interior_sequence') { + if (defined $expand_seq and $expand_seq eq 'interior_sequence') { ## If 'interior_sequence' is the method to use, we have to pass ## more than just the sequence object, we also need to pass the ## sequence name and text. @@ -705,7 +706,7 @@ sub parse_text { ++$line if ($_ eq "\n"); ## Look for the beginning of a sequence if ( /^([A-Z])(<)$/ ) { - ## Push a new sequence onto the stack on of those "in-progress" + ## Push a new sequence onto the stack of those "in-progress" $seq = Pod::InteriorSequence->new( -name => ($cmd = $1), -ldelim => $2, -rdelim => '', @@ -729,7 +730,7 @@ sub parse_text { } else { ## In the middle of a sequence, append this text to it - $seq->append($_) if $_; + $seq->append($_) if length; } ## Remember the "current" sequence and the previously seen token ($seq, $prev) = ( $seq_stack[-1], $_ ); |