diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-25 03:15:03 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-25 03:15:03 +0000 |
| commit | faee740f668b7b35a18577bc0b2150b66dd521ec (patch) | |
| tree | 08156d10f3ad98d3a53549c93617492a4c1b5905 /lib/Pod | |
| parent | 10fbe4816bc38f1e7e74150e6ea63c5ebc97963b (diff) | |
| download | perl-faee740f668b7b35a18577bc0b2150b66dd521ec.tar.gz | |
update PodParser to v1.10 (from Brad Appleton)
p4raw-id: //depot/perl@5252
Diffstat (limited to 'lib/Pod')
| -rw-r--r-- | lib/Pod/InputObjects.pm | 2 | ||||
| -rw-r--r-- | lib/Pod/Parser.pm | 8 | ||||
| -rw-r--r-- | lib/Pod/Select.pm | 2 | ||||
| -rw-r--r-- | lib/Pod/Usage.pm | 2 |
4 files changed, 7 insertions, 7 deletions
diff --git a/lib/Pod/InputObjects.pm b/lib/Pod/InputObjects.pm index 174759aa9c..7544fb76c5 100644 --- a/lib/Pod/InputObjects.pm +++ b/lib/Pod/InputObjects.pm @@ -11,7 +11,7 @@ package Pod::InputObjects; 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 ############################################################################# 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); diff --git a/lib/Pod/Select.pm b/lib/Pod/Select.pm index 150dfca1fe..230dc8f03b 100644 --- a/lib/Pod/Select.pm +++ b/lib/Pod/Select.pm @@ -10,7 +10,7 @@ package Pod::Select; 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 ############################################################################# diff --git a/lib/Pod/Usage.pm b/lib/Pod/Usage.pm index 9f01a52ebb..84a936e396 100644 --- a/lib/Pod/Usage.pm +++ b/lib/Pod/Usage.pm @@ -10,7 +10,7 @@ package Pod::Usage; 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 =head1 NAME |