diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Pod/Simple/PullParser.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Pod/Simple/PullParser.pm | 19 |
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" } } |