Update Pod-Parser to CPAN version 1.61

  [DELTA]

 01-Jun-2013           Marek Rouchal                        <marekr@cpan.org>
 -----------------------------------------------------------------------------
 Version 1.61
 + CPAN#85656 fix typos in comments

5 files changed, 16 insertions, 16 deletions

diff --git a/cpan/Pod-Parser/lib/Pod/Find.pm b/cpan/Pod-Parser/lib/Pod/Find.pm
index 884062ff3a..1564aa32ee 100644
--- a/cpan/Pod-Parser/lib/Pod/Find.pm
+++ b/cpan/Pod-Parser/lib/Pod/Find.pm
@@ -14,7 +14,7 @@ package Pod::Find;
 use strict;

 

 use vars qw($VERSION);

-$VERSION = '1.60';   ## Current version of this package

+$VERSION = '1.61';   ## Current version of this package

 require  5.005;   ## requires this Perl version or later

 use Carp;

 

diff --git a/cpan/Pod-Parser/lib/Pod/InputObjects.pm b/cpan/Pod-Parser/lib/Pod/InputObjects.pm
index c19d4c550b..dd078e648e 100644
--- a/cpan/Pod-Parser/lib/Pod/InputObjects.pm
+++ b/cpan/Pod-Parser/lib/Pod/InputObjects.pm
@@ -12,7 +12,7 @@ package Pod::InputObjects;
 use strict;

 

 use vars qw($VERSION);

-$VERSION = '1.60';  ## Current version of this package

+$VERSION = '1.61';  ## Current version of this package

 require  5.005;    ## requires this Perl version or later

 

 #############################################################################

@@ -480,7 +480,7 @@ sub new {
           @_

     };

 

-    ## Initialize contents if they havent been already

+    ## Initialize contents if they haven't been already

     my $ptree = $self->{'-ptree'} || new Pod::ParseTree();

     if ( ref $ptree =~ /^(ARRAY)?$/ ) {

         ## We have an array-ref, or a normal scalar. Pass it as an

diff --git a/cpan/Pod-Parser/lib/Pod/ParseUtils.pm b/cpan/Pod-Parser/lib/Pod/ParseUtils.pm
index fc9f3a73f2..551d594023 100644
--- a/cpan/Pod-Parser/lib/Pod/ParseUtils.pm
+++ b/cpan/Pod-Parser/lib/Pod/ParseUtils.pm
@@ -11,7 +11,7 @@ package Pod::ParseUtils;
 use strict;

 

 use vars qw($VERSION);

-$VERSION = '1.60'; ## Current version of this package

+$VERSION = '1.61'; ## Current version of this package

 require  5.005;    ## requires this Perl version or later

 

 =head1 NAME

@@ -311,7 +311,7 @@ sub parse {
     # only page

     # problem: a lot of people use (), or (1) or the like to indicate

     # man page sections. But this collides with L<func()> that is supposed

-    # to point to an internal funtion...

+    # to point to an internal function...

     my $page_rx = '[\w.-]+(?:::[\w.-]+)*(?:[(](?:\d\w*|)[)]|)';

     # page name only

     if(/^($page_rx)$/o) {

diff --git a/cpan/Pod-Parser/lib/Pod/Parser.pm b/cpan/Pod-Parser/lib/Pod/Parser.pm
index 4b4fecfbdd..41c4633f75 100644
--- a/cpan/Pod-Parser/lib/Pod/Parser.pm
+++ b/cpan/Pod-Parser/lib/Pod/Parser.pm
@@ -12,7 +12,7 @@ use strict;
 

 ## These "variables" are used as local "glob aliases" for performance

 use vars qw($VERSION @ISA %myData %myOpts @input_stack);

-$VERSION = '1.60';  ## Current version of this package

+$VERSION = '1.61';  ## Current version of this package

 require  5.005;    ## requires this Perl version or later

 

 #############################################################################

@@ -816,7 +816,7 @@ sub parse_text {
             }

             if (length) {

                 ## In the middle of a sequence, append this text to it, and

-                ## dont forget to "expand" it if that's what the caller wanted

+                ## don't forget to "expand" it if that's what the caller wanted

                 $seq->append($expand_text ? &$xtext_sub($self,$_,$seq) : $_);

                 $_ .= $seq_end;

             }

@@ -840,7 +840,7 @@ sub parse_text {
         }

         elsif (length) {

             ## In the middle of a sequence, append this text to it, and

-            ## dont forget to "expand" it if that's what the caller wanted

+            ## don't forget to "expand" it if that's what the caller wanted

             $seq->append($expand_text ? &$xtext_sub($self,$_,$seq) : $_);

         }

         ## Keep track of line count

@@ -944,12 +944,12 @@ sub parse_paragraph {
     ## but that is more overhead than I want to incur)

     ##-----------------------------------------------------------------

 

-    ## Ignore this block if it isnt in one of the selected sections

+    ## Ignore this block if it isn't in one of the selected sections

     if (exists $myData{_SELECTED_SECTIONS}) {

         $self->is_selected($text)  or  return ($myData{_CUTTING} = 1);

     }

 

-    ## If we havent already, perform any desired preprocessing and

+    ## If we haven't already, perform any desired preprocessing and

     ## then re-check the "cutting" state

     unless ($wantNonPods) {

        $text = $self->preprocess_paragraph($text, $line_num);

@@ -969,7 +969,7 @@ sub parse_paragraph {
         ($cmd, $sep, $text) = split /(\s+)/, $_, 2;

         $sep = '' unless defined $sep;

         $text = '' unless defined $text;

-        ## If this is a "cut" directive then we dont need to do anything

+        ## If this is a "cut" directive then we don't need to do anything

         ## except return to "cutting" mode.

         if ($cmd eq 'cut') {

            $myData{_CUTTING} = 1;

@@ -1102,7 +1102,7 @@ sub parse_from_filehandle {
         }

 

         ## See if this line is blank and ends the current paragraph.

-        ## If it isnt, then keep iterating until it is.

+        ## If it isn't, then keep iterating until it is.

         next unless (($textline =~ /^[^\S\r\n]*[\r\n]*$/)

                                      && (length $paragraph));

 

@@ -1111,7 +1111,7 @@ sub parse_from_filehandle {
         $paragraph = '';

         $plines = 0;

     }

-    ## Dont forget about the last paragraph in the file

+    ## Don't forget about the last paragraph in the file

     if (length $paragraph) {

        parse_paragraph($self, $paragraph, ($nlines - $plines) + 1)

     }

@@ -1611,7 +1611,7 @@ sub _pop_input_stream {
     my $old_top = pop(@input_stack);

     $myData{_CUTTING} = $old_top->was_cutting();

 

-    ## Dont forget to reset the input indicators

+    ## Don't forget to reset the input indicators

     my $input_top = undef;

     if (@input_stack > 0) {

        $input_top = $myData{_TOP_STREAM} = $input_stack[-1];

diff --git a/cpan/Pod-Parser/lib/Pod/Select.pm b/cpan/Pod-Parser/lib/Pod/Select.pm
index 148b5d17cf..4af5792865 100644
--- a/cpan/Pod-Parser/lib/Pod/Select.pm
+++ b/cpan/Pod-Parser/lib/Pod/Select.pm
@@ -11,7 +11,7 @@ package Pod::Select;
 use strict;

 

 use vars qw($VERSION @ISA @EXPORT $MAX_HEADING_LEVEL %myData @section_headings @selected_sections);

-$VERSION = '1.60'; ## Current version of this package

+$VERSION = '1.61'; ## Current version of this package

 require  5.005;    ## requires this Perl version or later

 

 #############################################################################

@@ -669,7 +669,7 @@ sub _compile_section_spec {
     ## Parse the regexs for the heading titles

     @regexs = split(/\//, $_, $MAX_HEADING_LEVEL);

 

-    ## Set default regex for ommitted levels

+    ## Set default regex for omitted levels

     for (my $i = 0; $i < $MAX_HEADING_LEVEL; ++$i) {

         $regexs[$i]  = '.*'  unless ((defined $regexs[$i])

                                      && (length $regexs[$i]));