From 9a031c8e679b31a21bd470de1a649e3276c8c83c Mon Sep 17 00:00:00 2001
From: Chris 'BinGOs' Williams <chris@bingosnet.co.uk>
Date: Sat, 1 Jun 2013 21:47:07 +0100
Subject: 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
---
cpan/Pod-Parser/lib/Pod/Find.pm | 2 +-
cpan/Pod-Parser/lib/Pod/InputObjects.pm | 4 ++--
cpan/Pod-Parser/lib/Pod/ParseUtils.pm | 4 ++--
cpan/Pod-Parser/lib/Pod/Parser.pm | 18 +++++++++---------
cpan/Pod-Parser/lib/Pod/Select.pm | 4 ++--
5 files changed, 16 insertions(+), 16 deletions(-)
(limited to 'cpan')
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]));
--
cgit v1.2.1