summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Pod/Simple/PullParser.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Pod/Simple/PullParser.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/Pod/Simple/PullParser.pm19
1 files changed, 10 insertions, 9 deletions
diff --git a/Master/tlpkg/tlperl/lib/Pod/Simple/PullParser.pm b/Master/tlpkg/tlperl/lib/Pod/Simple/PullParser.pm
index c27d0cbeb0e..4033213e825 100644
--- a/Master/tlpkg/tlperl/lib/Pod/Simple/PullParser.pm
+++ b/Master/tlpkg/tlperl/lib/Pod/Simple/PullParser.pm
@@ -1,7 +1,7 @@
require 5;
package Pod::Simple::PullParser;
-$VERSION = '3.14';
+$VERSION = '3.16';
use Pod::Simple ();
BEGIN {@ISA = ('Pod::Simple')}
@@ -453,7 +453,7 @@ sub _get_titled_section {
$self->unget_token(@to_unget);
if(DEBUG) {
- if(defined $title) { print " Returing title <$title>\n" }
+ if(defined $title) { print " Returning title <$title>\n" }
else { print "Returning title <>\n" }
}
@@ -532,7 +532,7 @@ And elsewhere:
package SomePodProcessor;
use strict;
use base qw(Pod::Simple::PullParser);
-
+
sub run {
my $self = shift;
Token:
@@ -623,14 +623,14 @@ process the token-stream from the beginning.
For example, suppose you have a document that starts out:
=head1 NAME
-
+
Hoo::Boy::Wowza -- Stuff B<wow> yeah!
$parser->get_title on that document will return "Hoo::Boy::Wowza --
Stuff wow yeah!". If the document starts with:
=head1 Name
-
+
Hoo::Boy::W00t -- Stuff B<w00t> yeah!
Then you'll need to pass the C<nocase> option in order to recognize "Name":
@@ -648,7 +648,7 @@ the title seems to be of the form "SomeModuleName -- description".
For example, suppose you have a document that starts out:
=head1 NAME
-
+
Hoo::Boy::Wowza -- Stuff B<wow> yeah!
then $parser->get_short_title on that document will return
@@ -657,14 +657,14 @@ then $parser->get_short_title on that document will return
But if the document starts out:
=head1 NAME
-
+
Hooboy, stuff B<wow> yeah!
then $parser->get_short_title on that document will return "Hooboy,
stuff wow yeah!". If the document starts with:
=head1 Name
-
+
Hoo::Boy::W00t -- Stuff B<w00t> yeah!
Then you'll need to pass the C<nocase> option in order to recognize "Name":
@@ -769,6 +769,7 @@ Pod::Simple is maintained by:
=back
=cut
+
JUNK:
sub _old_get_title { # some witchery in here
@@ -833,7 +834,7 @@ sub _old_get_title { # some witchery in here
$self->unget_token(@to_unget);
if(DEBUG) {
- if(defined $title) { print " Returing title <$title>\n" }
+ if(defined $title) { print " Returning title <$title>\n" }
else { print "Returning title <>\n" }
}