In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/8226f5083483c32f65ab0be1501060f802b10c04?hp=6a475a49baf3f05fd8608db42c00aabd13729c7b>
- Log ----------------------------------------------------------------- commit 8226f5083483c32f65ab0be1501060f802b10c04 Author: Tony Cook <[email protected]> Date: Tue Aug 25 12:08:45 2015 +1000 Revert "Update Pod-Simple to CPAN version 3.31" This reverts commit 354f3e4ea74293dacec2ca84d3762435e9c45701. This broken Win32 builds, see https://github.com/perl-pod/pod-simple/issues/69 ----------------------------------------------------------------------- Summary of changes: Porting/Maintainers.pl | 16 +++++++++++- cpan/Pod-Simple/lib/Pod/Simple.pm | 2 +- cpan/Pod-Simple/lib/Pod/Simple.pod | 8 +++--- cpan/Pod-Simple/lib/Pod/Simple/BlackBox.pm | 2 +- cpan/Pod-Simple/lib/Pod/Simple/Checker.pm | 6 ++--- cpan/Pod-Simple/lib/Pod/Simple/Debug.pm | 6 ++--- cpan/Pod-Simple/lib/Pod/Simple/DumpAsText.pm | 6 ++--- cpan/Pod-Simple/lib/Pod/Simple/DumpAsXML.pm | 6 ++--- cpan/Pod-Simple/lib/Pod/Simple/HTML.pm | 6 ++--- cpan/Pod-Simple/lib/Pod/Simple/HTMLBatch.pm | 6 ++--- cpan/Pod-Simple/lib/Pod/Simple/LinkSection.pm | 8 +++--- cpan/Pod-Simple/lib/Pod/Simple/Methody.pm | 6 ++--- cpan/Pod-Simple/lib/Pod/Simple/Progress.pm | 2 +- cpan/Pod-Simple/lib/Pod/Simple/PullParser.pm | 6 ++--- .../lib/Pod/Simple/PullParserEndToken.pm | 6 ++--- .../lib/Pod/Simple/PullParserStartToken.pm | 6 ++--- .../lib/Pod/Simple/PullParserTextToken.pm | 6 ++--- cpan/Pod-Simple/lib/Pod/Simple/PullParserToken.pm | 6 ++--- cpan/Pod-Simple/lib/Pod/Simple/RTF.pm | 6 ++--- cpan/Pod-Simple/lib/Pod/Simple/Search.pm | 30 ++++++++++++++-------- cpan/Pod-Simple/lib/Pod/Simple/SimpleTree.pm | 6 ++--- cpan/Pod-Simple/lib/Pod/Simple/Subclassing.pod | 4 +-- cpan/Pod-Simple/lib/Pod/Simple/Text.pm | 6 ++--- cpan/Pod-Simple/lib/Pod/Simple/TextContent.pm | 6 ++--- cpan/Pod-Simple/lib/Pod/Simple/TiedOutFH.pm | 2 +- cpan/Pod-Simple/lib/Pod/Simple/Transcode.pm | 5 ++-- cpan/Pod-Simple/lib/Pod/Simple/TranscodeDumb.pm | 2 +- cpan/Pod-Simple/lib/Pod/Simple/TranscodeSmart.pm | 2 +- cpan/Pod-Simple/lib/Pod/Simple/XHTML.pm | 8 +++--- cpan/Pod-Simple/lib/Pod/Simple/XMLOutStream.pm | 6 ++--- cpan/Pod-Simple/t/search50.t | 10 ++++---- t/porting/customized.dat | 8 ++++++ 32 files changed, 121 insertions(+), 90 deletions(-) diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index 2544bb0..fc734a4 100755 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -938,8 +938,22 @@ use File::Glob qw(:case); }, 'Pod::Simple' => { - 'DISTRIBUTION' => 'MARCGREEN/Pod-Simple-3.31.tar.gz', + 'DISTRIBUTION' => 'DWHEELER/Pod-Simple-3.30.tar.gz', 'FILES' => q[cpan/Pod-Simple], + # https://rt.cpan.org/Public/Bug/Display.html?id=103439 + # https://rt.cpan.org/Public/Bug/Display.html?id=105192 + # https://rt.cpan.org/Public/Bug/Display.html?id=105511 + 'CUSTOMIZED' => [ + qw( lib/Pod/Simple/Search.pm + lib/Pod/Simple/BlackBox.pm + t/search10.t + t/search12.t + t/search20.t + t/search22.t + t/search26.t + t/search28.t + ), + ], }, 'Pod::Usage' => { diff --git a/cpan/Pod-Simple/lib/Pod/Simple.pm b/cpan/Pod-Simple/lib/Pod/Simple.pm index 36e24dc..b9a1197 100644 --- a/cpan/Pod-Simple/lib/Pod/Simple.pm +++ b/cpan/Pod-Simple/lib/Pod/Simple.pm @@ -18,7 +18,7 @@ use vars qw( ); @ISA = ('Pod::Simple::BlackBox'); -$VERSION = '3.31'; +$VERSION = '3.30'; @Known_formatting_codes = qw(I B C L E F S X Z); %Known_formatting_codes = map(($_=>1), @Known_formatting_codes); diff --git a/cpan/Pod-Simple/lib/Pod/Simple.pod b/cpan/Pod-Simple/lib/Pod/Simple.pod index d6bc42d..60229bd 100644 --- a/cpan/Pod-Simple/lib/Pod/Simple.pod +++ b/cpan/Pod-Simple/lib/Pod/Simple.pod @@ -12,7 +12,7 @@ Pod::Simple - framework for parsing Pod Pod::Simple is a Perl library for parsing text in the Pod ("plain old documentation") markup language that is typically used for writing documentation for Perl and for Perl modules. The Pod format is explained -in L<perlpod>; the most common formatter is called C<perldoc>. +L<perlpod>; the most common formatter is called C<perldoc>. Be sure to read L</ENCODING> if your Pod contains non-ASCII characters. @@ -351,7 +351,7 @@ the C<=encoding> declaration in the POD source. If the POD source does not include an C<=encoding> declaration, the parser will attempt to guess the encoding (selecting one of UTF-8 or CP 1252) by examining the first non-ASCII bytes and applying the heuristic described in -L<perlpodspec>. (If the POD source contains only ASCII bytes, the +L<perlpodspec>. (It the POD source contains only ASCII bytes, the encoding is assumed to be ASCII.) If you set the C<parse_characters> option to a true value the parser will @@ -377,8 +377,8 @@ [email protected] mail list. Send an empty email to [email protected] to subscribe. This module is managed in an open GitHub repository, -L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or -to clone L<git://github.com/perl-pod/pod-simple.git> and send patches! +L<https://github.com/theory/pod-simple/>. Feel free to fork and contribute, or +to clone L<git://github.com/theory/pod-simple.git> and send patches! Patches against Pod::Simple are welcome. Please send bug reports to <[email protected]>. diff --git a/cpan/Pod-Simple/lib/Pod/Simple/BlackBox.pm b/cpan/Pod-Simple/lib/Pod/Simple/BlackBox.pm index 2e0f9ac..5c1461f 100644 --- a/cpan/Pod-Simple/lib/Pod/Simple/BlackBox.pm +++ b/cpan/Pod-Simple/lib/Pod/Simple/BlackBox.pm @@ -22,7 +22,7 @@ use integer; # vroom! use strict; use Carp (); use vars qw($VERSION ); -$VERSION = '3.31'; +$VERSION = '3.30'; #use constant DEBUG => 7; BEGIN { require Pod::Simple; diff --git a/cpan/Pod-Simple/lib/Pod/Simple/Checker.pm b/cpan/Pod-Simple/lib/Pod/Simple/Checker.pm index 2dcc563..7f7390b 100644 --- a/cpan/Pod-Simple/lib/Pod/Simple/Checker.pm +++ b/cpan/Pod-Simple/lib/Pod/Simple/Checker.pm @@ -9,7 +9,7 @@ use Carp (); use Pod::Simple::Methody (); use Pod::Simple (); use vars qw( @ISA $VERSION ); -$VERSION = '3.31'; +$VERSION = '3.30'; @ISA = ('Pod::Simple::Methody'); BEGIN { *DEBUG = defined(&Pod::Simple::DEBUG) ? \&Pod::Simple::DEBUG @@ -157,8 +157,8 @@ [email protected] mail list. Send an empty email to [email protected] to subscribe. This module is managed in an open GitHub repository, -L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or -to clone L<git://github.com/perl-pod/pod-simple.git> and send patches! +L<https://github.com/theory/pod-simple/>. Feel free to fork and contribute, or +to clone L<git://github.com/theory/pod-simple.git> and send patches! Patches against Pod::Simple are welcome. Please send bug reports to <[email protected]>. diff --git a/cpan/Pod-Simple/lib/Pod/Simple/Debug.pm b/cpan/Pod-Simple/lib/Pod/Simple/Debug.pm index 3989ebc..c27170d 100644 --- a/cpan/Pod-Simple/lib/Pod/Simple/Debug.pm +++ b/cpan/Pod-Simple/lib/Pod/Simple/Debug.pm @@ -2,7 +2,7 @@ require 5; package Pod::Simple::Debug; use strict; use vars qw($VERSION ); -$VERSION = '3.31'; +$VERSION = '3.30'; sub import { my($value,$variable); @@ -140,8 +140,8 @@ [email protected] mail list. Send an empty email to [email protected] to subscribe. This module is managed in an open GitHub repository, -L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or -to clone L<git://github.com/perl-pod/pod-simple.git> and send patches! +L<https://github.com/theory/pod-simple/>. Feel free to fork and contribute, or +to clone L<git://github.com/theory/pod-simple.git> and send patches! Patches against Pod::Simple are welcome. Please send bug reports to <[email protected]>. diff --git a/cpan/Pod-Simple/lib/Pod/Simple/DumpAsText.pm b/cpan/Pod-Simple/lib/Pod/Simple/DumpAsText.pm index 2854b15..03be00b 100644 --- a/cpan/Pod-Simple/lib/Pod/Simple/DumpAsText.pm +++ b/cpan/Pod-Simple/lib/Pod/Simple/DumpAsText.pm @@ -1,7 +1,7 @@ require 5; package Pod::Simple::DumpAsText; -$VERSION = '3.31'; +$VERSION = '3.30'; use Pod::Simple (); BEGIN {@ISA = ('Pod::Simple')} @@ -119,8 +119,8 @@ [email protected] mail list. Send an empty email to [email protected] to subscribe. This module is managed in an open GitHub repository, -L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or -to clone L<git://github.com/perl-pod/pod-simple.git> and send patches! +L<https://github.com/theory/pod-simple/>. Feel free to fork and contribute, or +to clone L<git://github.com/theory/pod-simple.git> and send patches! Patches against Pod::Simple are welcome. Please send bug reports to <[email protected]>. diff --git a/cpan/Pod-Simple/lib/Pod/Simple/DumpAsXML.pm b/cpan/Pod-Simple/lib/Pod/Simple/DumpAsXML.pm index f265bdf..560275d 100644 --- a/cpan/Pod-Simple/lib/Pod/Simple/DumpAsXML.pm +++ b/cpan/Pod-Simple/lib/Pod/Simple/DumpAsXML.pm @@ -1,7 +1,7 @@ require 5; package Pod::Simple::DumpAsXML; -$VERSION = '3.31'; +$VERSION = '3.30'; use Pod::Simple (); BEGIN {@ISA = ('Pod::Simple')} @@ -130,8 +130,8 @@ [email protected] mail list. Send an empty email to [email protected] to subscribe. This module is managed in an open GitHub repository, -L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or -to clone L<git://github.com/perl-pod/pod-simple.git> and send patches! +L<https://github.com/theory/pod-simple/>. Feel free to fork and contribute, or +to clone L<git://github.com/theory/pod-simple.git> and send patches! Patches against Pod::Simple are welcome. Please send bug reports to <[email protected]>. diff --git a/cpan/Pod-Simple/lib/Pod/Simple/HTML.pm b/cpan/Pod-Simple/lib/Pod/Simple/HTML.pm index e7922f1..d46290d 100644 --- a/cpan/Pod-Simple/lib/Pod/Simple/HTML.pm +++ b/cpan/Pod-Simple/lib/Pod/Simple/HTML.pm @@ -9,7 +9,7 @@ use vars qw( $Doctype_decl $Content_decl ); @ISA = ('Pod::Simple::PullParser'); -$VERSION = '3.31'; +$VERSION = '3.30'; BEGIN { if(defined &DEBUG) { } # no-op elsif( defined &Pod::Simple::DEBUG ) { *DEBUG = \&Pod::Simple::DEBUG } @@ -1112,8 +1112,8 @@ [email protected] mail list. Send an empty email to [email protected] to subscribe. This module is managed in an open GitHub repository, -L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or -to clone L<git://github.com/perl-pod/pod-simple.git> and send patches! +L<https://github.com/theory/pod-simple/>. Feel free to fork and contribute, or +to clone L<git://github.com/theory/pod-simple.git> and send patches! Patches against Pod::Simple are welcome. Please send bug reports to <[email protected]>. diff --git a/cpan/Pod-Simple/lib/Pod/Simple/HTMLBatch.pm b/cpan/Pod-Simple/lib/Pod/Simple/HTMLBatch.pm index 62f2f80..85cad7b 100644 --- a/cpan/Pod-Simple/lib/Pod/Simple/HTMLBatch.pm +++ b/cpan/Pod-Simple/lib/Pod/Simple/HTMLBatch.pm @@ -5,7 +5,7 @@ use strict; use vars qw( $VERSION $HTML_RENDER_CLASS $HTML_EXTENSION $CSS $JAVASCRIPT $SLEEPY $SEARCH_CLASS @ISA ); -$VERSION = '3.31'; +$VERSION = '3.30'; @ISA = (); # Yup, we're NOT a subclass of Pod::Simple::HTML! # TODO: nocontents stylesheets. Strike some of the color variations? @@ -1321,8 +1321,8 @@ [email protected] mail list. Send an empty email to [email protected] to subscribe. This module is managed in an open GitHub repository, -L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or -to clone L<git://github.com/perl-pod/pod-simple.git> and send patches! +L<https://github.com/theory/pod-simple/>. Feel free to fork and contribute, or +to clone L<git://github.com/theory/pod-simple.git> and send patches! Patches against Pod::Simple are welcome. Please send bug reports to <[email protected]>. diff --git a/cpan/Pod-Simple/lib/Pod/Simple/LinkSection.pm b/cpan/Pod-Simple/lib/Pod/Simple/LinkSection.pm index 16c03df..34582e1 100644 --- a/cpan/Pod-Simple/lib/Pod/Simple/LinkSection.pm +++ b/cpan/Pod-Simple/lib/Pod/Simple/LinkSection.pm @@ -3,12 +3,12 @@ require 5; package Pod::Simple::LinkSection; # Based somewhat dimly on Array::Autojoin use vars qw($VERSION ); -$VERSION = '3.31'; +$VERSION = '3.30'; use strict; use Pod::Simple::BlackBox; use vars qw($VERSION ); -$VERSION = '3.31'; +$VERSION = '3.30'; use overload( # So it'll stringify nice '""' => \&Pod::Simple::BlackBox::stringify_lol, @@ -137,8 +137,8 @@ [email protected] mail list. Send an empty email to [email protected] to subscribe. This module is managed in an open GitHub repository, -L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or -to clone L<git://github.com/perl-pod/pod-simple.git> and send patches! +L<https://github.com/theory/pod-simple/>. Feel free to fork and contribute, or +to clone L<git://github.com/theory/pod-simple.git> and send patches! Patches against Pod::Simple are welcome. Please send bug reports to <[email protected]>. diff --git a/cpan/Pod-Simple/lib/Pod/Simple/Methody.pm b/cpan/Pod-Simple/lib/Pod/Simple/Methody.pm index 9ee8eb7..cb27076 100644 --- a/cpan/Pod-Simple/lib/Pod/Simple/Methody.pm +++ b/cpan/Pod-Simple/lib/Pod/Simple/Methody.pm @@ -4,7 +4,7 @@ package Pod::Simple::Methody; use strict; use Pod::Simple (); use vars qw(@ISA $VERSION); -$VERSION = '3.31'; +$VERSION = '3.30'; @ISA = ('Pod::Simple'); # Yes, we could use named variables, but I want this to be impose @@ -115,8 +115,8 @@ [email protected] mail list. Send an empty email to [email protected] to subscribe. This module is managed in an open GitHub repository, -L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or -to clone L<git://github.com/perl-pod/pod-simple.git> and send patches! +L<https://github.com/theory/pod-simple/>. Feel free to fork and contribute, or +to clone L<git://github.com/theory/pod-simple.git> and send patches! Patches against Pod::Simple are welcome. Please send bug reports to <[email protected]>. diff --git a/cpan/Pod-Simple/lib/Pod/Simple/Progress.pm b/cpan/Pod-Simple/lib/Pod/Simple/Progress.pm index ec61206..968f0a4 100644 --- a/cpan/Pod-Simple/lib/Pod/Simple/Progress.pm +++ b/cpan/Pod-Simple/lib/Pod/Simple/Progress.pm @@ -1,7 +1,7 @@ require 5; package Pod::Simple::Progress; -$VERSION = '3.31'; +$VERSION = '3.30'; use strict; # Objects of this class are used for noting progress of an diff --git a/cpan/Pod-Simple/lib/Pod/Simple/PullParser.pm b/cpan/Pod-Simple/lib/Pod/Simple/PullParser.pm index 366af54..7af5d12 100644 --- a/cpan/Pod-Simple/lib/Pod/Simple/PullParser.pm +++ b/cpan/Pod-Simple/lib/Pod/Simple/PullParser.pm @@ -1,6 +1,6 @@ require 5; package Pod::Simple::PullParser; -$VERSION = '3.31'; +$VERSION = '3.30'; use Pod::Simple (); BEGIN {@ISA = ('Pod::Simple')} @@ -742,8 +742,8 @@ [email protected] mail list. Send an empty email to [email protected] to subscribe. This module is managed in an open GitHub repository, -L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or -to clone L<git://github.com/perl-pod/pod-simple.git> and send patches! +L<https://github.com/theory/pod-simple/>. Feel free to fork and contribute, or +to clone L<git://github.com/theory/pod-simple.git> and send patches! Patches against Pod::Simple are welcome. Please send bug reports to <[email protected]>. diff --git a/cpan/Pod-Simple/lib/Pod/Simple/PullParserEndToken.pm b/cpan/Pod-Simple/lib/Pod/Simple/PullParserEndToken.pm index 287f9e9..f8747a8 100644 --- a/cpan/Pod-Simple/lib/Pod/Simple/PullParserEndToken.pm +++ b/cpan/Pod-Simple/lib/Pod/Simple/PullParserEndToken.pm @@ -5,7 +5,7 @@ use Pod::Simple::PullParserToken (); use strict; use vars qw(@ISA $VERSION); @ISA = ('Pod::Simple::PullParserToken'); -$VERSION = '3.31'; +$VERSION = '3.30'; sub new { # Class->new(tagname); my $class = shift; @@ -83,8 +83,8 @@ [email protected] mail list. Send an empty email to [email protected] to subscribe. This module is managed in an open GitHub repository, -L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or -to clone L<git://github.com/perl-pod/pod-simple.git> and send patches! +L<https://github.com/theory/pod-simple/>. Feel free to fork and contribute, or +to clone L<git://github.com/theory/pod-simple.git> and send patches! Patches against Pod::Simple are welcome. Please send bug reports to <[email protected]>. diff --git a/cpan/Pod-Simple/lib/Pod/Simple/PullParserStartToken.pm b/cpan/Pod-Simple/lib/Pod/Simple/PullParserStartToken.pm index e19d0da0df..bec0e2e 100644 --- a/cpan/Pod-Simple/lib/Pod/Simple/PullParserStartToken.pm +++ b/cpan/Pod-Simple/lib/Pod/Simple/PullParserStartToken.pm @@ -5,7 +5,7 @@ use Pod::Simple::PullParserToken (); use strict; use vars qw(@ISA $VERSION); @ISA = ('Pod::Simple::PullParserToken'); -$VERSION = '3.31'; +$VERSION = '3.30'; sub new { # Class->new(tagname, optional_attrhash); my $class = shift; @@ -124,8 +124,8 @@ [email protected] mail list. Send an empty email to [email protected] to subscribe. This module is managed in an open GitHub repository, -L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or -to clone L<git://github.com/perl-pod/pod-simple.git> and send patches! +L<https://github.com/theory/pod-simple/>. Feel free to fork and contribute, or +to clone L<git://github.com/theory/pod-simple.git> and send patches! Patches against Pod::Simple are welcome. Please send bug reports to <[email protected]>. diff --git a/cpan/Pod-Simple/lib/Pod/Simple/PullParserTextToken.pm b/cpan/Pod-Simple/lib/Pod/Simple/PullParserTextToken.pm index 411978e..59fd06d 100644 --- a/cpan/Pod-Simple/lib/Pod/Simple/PullParserTextToken.pm +++ b/cpan/Pod-Simple/lib/Pod/Simple/PullParserTextToken.pm @@ -5,7 +5,7 @@ use Pod::Simple::PullParserToken (); use strict; use vars qw(@ISA $VERSION); @ISA = ('Pod::Simple::PullParserToken'); -$VERSION = '3.31'; +$VERSION = '3.30'; sub new { # Class->new(text); my $class = shift; @@ -97,8 +97,8 @@ [email protected] mail list. Send an empty email to [email protected] to subscribe. This module is managed in an open GitHub repository, -L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or -to clone L<git://github.com/perl-pod/pod-simple.git> and send patches! +L<https://github.com/theory/pod-simple/>. Feel free to fork and contribute, or +to clone L<git://github.com/theory/pod-simple.git> and send patches! Patches against Pod::Simple are welcome. Please send bug reports to <[email protected]>. diff --git a/cpan/Pod-Simple/lib/Pod/Simple/PullParserToken.pm b/cpan/Pod-Simple/lib/Pod/Simple/PullParserToken.pm index 85dce8b..4beff5c 100644 --- a/cpan/Pod-Simple/lib/Pod/Simple/PullParserToken.pm +++ b/cpan/Pod-Simple/lib/Pod/Simple/PullParserToken.pm @@ -3,7 +3,7 @@ require 5; package Pod::Simple::PullParserToken; # Base class for tokens gotten from Pod::Simple::PullParser's $parser->get_token @ISA = (); -$VERSION = '3.31'; +$VERSION = '3.30'; use strict; sub new { # Class->new('type', stuff...); ## Overridden in derived classes anyway @@ -126,8 +126,8 @@ [email protected] mail list. Send an empty email to [email protected] to subscribe. This module is managed in an open GitHub repository, -L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or -to clone L<git://github.com/perl-pod/pod-simple.git> and send patches! +L<https://github.com/theory/pod-simple/>. Feel free to fork and contribute, or +to clone L<git://github.com/theory/pod-simple.git> and send patches! Patches against Pod::Simple are welcome. Please send bug reports to <[email protected]>. diff --git a/cpan/Pod-Simple/lib/Pod/Simple/RTF.pm b/cpan/Pod-Simple/lib/Pod/Simple/RTF.pm index 78ea982..5c72aba 100644 --- a/cpan/Pod-Simple/lib/Pod/Simple/RTF.pm +++ b/cpan/Pod-Simple/lib/Pod/Simple/RTF.pm @@ -8,7 +8,7 @@ package Pod::Simple::RTF; use strict; use vars qw($VERSION @ISA %Escape $WRAP %Tagmap); -$VERSION = '3.31'; +$VERSION = '3.30'; use Pod::Simple::PullParser (); BEGIN {@ISA = ('Pod::Simple::PullParser')} @@ -677,8 +677,8 @@ [email protected] mail list. Send an empty email to [email protected] to subscribe. This module is managed in an open GitHub repository, -L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or -to clone L<git://github.com/perl-pod/pod-simple.git> and send patches! +L<https://github.com/theory/pod-simple/>. Feel free to fork and contribute, or +to clone L<git://github.com/theory/pod-simple.git> and send patches! Patches against Pod::Simple are welcome. Please send bug reports to <[email protected]>. diff --git a/cpan/Pod-Simple/lib/Pod/Simple/Search.pm b/cpan/Pod-Simple/lib/Pod/Simple/Search.pm index c4575aa..5be5aea 100644 --- a/cpan/Pod-Simple/lib/Pod/Simple/Search.pm +++ b/cpan/Pod-Simple/lib/Pod/Simple/Search.pm @@ -3,7 +3,7 @@ package Pod::Simple::Search; use strict; use vars qw($VERSION $MAX_VERSION_WITHIN $SLEEPY); -$VERSION = '3.31'; ## Current version of this package +$VERSION = '3.30'; ## Current version of this package BEGIN { *DEBUG = sub () {0} unless defined &DEBUG; } # set DEBUG level use Carp (); @@ -12,7 +12,6 @@ $SLEEPY = 1 if !defined $SLEEPY and $^O =~ /mswin|mac/i; # flag to occasionally sleep for $SLEEPY - 1 seconds. $MAX_VERSION_WITHIN ||= 60; -my $IS_CASE_INSENSITIVE = -e uc __FILE__ && -e lc __FILE__; ############################################################################# @@ -124,6 +123,19 @@ sub survey { return $self->name2path, $self->path2name; # list } +my $IS_CASE_INSENSITIVE; +sub _is_case_insensitive { + unless (defined $IS_CASE_INSENSITIVE) { + $IS_CASE_INSENSITIVE = 0; + my ($uc) = glob uc __FILE__; + if ($uc) { + my ($lc) = glob lc __FILE__; + $IS_CASE_INSENSITIVE = 1 if $lc; + } + } + return $IS_CASE_INSENSITIVE; +} + #========================================================================== sub _make_search_callback { my $self = $_[0]; @@ -135,7 +147,7 @@ sub _make_search_callback { qw(laborious verbose shadows limit_re callback progress path2name name2path recurse ciseen); my ($seen, $remember, $files_for); - if ($IS_CASE_INSENSITIVE) { + if (_is_case_insensitive) { $seen = sub { $ciseen->{ lc $_[0] } }; $remember = sub { $name2path->{ $_[0] } = $ciseen->{ lc $_[0] } = $_[1]; }; $files_for = sub { my $n = lc $_[0]; grep { lc $path2name->{$_} eq $n } %{ $path2name } }; @@ -482,15 +494,13 @@ sub _expand_inc { my($self, $search_dirs) = @_; return unless $self->{'inc'}; - my %seen = map { File::Spec->rel2abs($_) => 1 } @{ $search_dirs }; if ($^O eq 'MacOS') { push @$search_dirs, - grep { !$seen{ File::Spec->rel2abs($_) }++ } $self->_mac_whammy(@INC); + grep $_ ne File::Spec->curdir, $self->_mac_whammy(@INC); # Any other OSs need custom handling here? } else { - push @$search_dirs, - grep { !$seen{ File::Spec->rel2abs($_) }++ } @INC; + push @$search_dirs, grep $_ ne File::Spec->curdir, @INC; } $self->{'laborious'} = 0; # Since inc said to use INC @@ -588,7 +598,7 @@ sub find { my $fullext = $fullname . $ext; if ( -f $fullext and $self->contains_pod($fullext) ) { print "FOUND: $fullext\n" if $verbose; - if (@parts > 1 && lc $parts[0] eq 'pod' && $IS_CASE_INSENSITIVE && $ext eq '.pod') { + if (@parts > 1 && lc $parts[0] eq 'pod' && _is_case_insensitive && $ext eq '.pod') { # Well, this file could be for a program (perldoc) but we actually # want a module (Pod::Perldoc). So see if there is a .pm with the # proper casing. @@ -1039,8 +1049,8 @@ [email protected] mail list. Send an empty email to [email protected] to subscribe. This module is managed in an open GitHub repository, -L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or -to clone L<git://github.com/perl-pod/pod-simple.git> and send patches! +L<https://github.com/theory/pod-simple/>. Feel free to fork and contribute, or +to clone L<git://github.com/theory/pod-simple.git> and send patches! Patches against Pod::Simple are welcome. Please send bug reports to <[email protected]>. diff --git a/cpan/Pod-Simple/lib/Pod/Simple/SimpleTree.pm b/cpan/Pod-Simple/lib/Pod/Simple/SimpleTree.pm index ed1e31e..14199df 100644 --- a/cpan/Pod-Simple/lib/Pod/Simple/SimpleTree.pm +++ b/cpan/Pod-Simple/lib/Pod/Simple/SimpleTree.pm @@ -5,7 +5,7 @@ use strict; use Carp (); use Pod::Simple (); use vars qw( $ATTR_PAD @ISA $VERSION $SORT_ATTRS); -$VERSION = '3.31'; +$VERSION = '3.30'; BEGIN { @ISA = ('Pod::Simple'); *DEBUG = \&Pod::Simple::DEBUG unless defined &DEBUG; @@ -142,8 +142,8 @@ [email protected] mail list. Send an empty email to [email protected] to subscribe. This module is managed in an open GitHub repository, -L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or -to clone L<git://github.com/perl-pod/pod-simple.git> and send patches! +L<https://github.com/theory/pod-simple/>. Feel free to fork and contribute, or +to clone L<git://github.com/theory/pod-simple.git> and send patches! Patches against Pod::Simple are welcome. Please send bug reports to <[email protected]>. diff --git a/cpan/Pod-Simple/lib/Pod/Simple/Subclassing.pod b/cpan/Pod-Simple/lib/Pod/Simple/Subclassing.pod index 88f85e8..9768ace 100644 --- a/cpan/Pod-Simple/lib/Pod/Simple/Subclassing.pod +++ b/cpan/Pod-Simple/lib/Pod/Simple/Subclassing.pod @@ -1044,8 +1044,8 @@ [email protected] mail list. Send an empty email to [email protected] to subscribe. This module is managed in an open GitHub repository, -L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or -to clone L<git://github.com/perl-pod/pod-simple.git> and send patches! +L<https://github.com/theory/pod-simple/>. Feel free to fork and contribute, or +to clone L<git://github.com/theory/pod-simple.git> and send patches! Patches against Pod::Simple are welcome. Please send bug reports to <[email protected]>. diff --git a/cpan/Pod-Simple/lib/Pod/Simple/Text.pm b/cpan/Pod-Simple/lib/Pod/Simple/Text.pm index 24e900d..2a417c2 100644 --- a/cpan/Pod-Simple/lib/Pod/Simple/Text.pm +++ b/cpan/Pod-Simple/lib/Pod/Simple/Text.pm @@ -6,7 +6,7 @@ use Carp (); use Pod::Simple::Methody (); use Pod::Simple (); use vars qw( @ISA $VERSION $FREAKYMODE); -$VERSION = '3.31'; +$VERSION = '3.30'; @ISA = ('Pod::Simple::Methody'); BEGIN { *DEBUG = defined(&Pod::Simple::DEBUG) ? \&Pod::Simple::DEBUG @@ -147,8 +147,8 @@ [email protected] mail list. Send an empty email to [email protected] to subscribe. This module is managed in an open GitHub repository, -L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or -to clone L<git://github.com/perl-pod/pod-simple.git> and send patches! +L<https://github.com/theory/pod-simple/>. Feel free to fork and contribute, or +to clone L<git://github.com/theory/pod-simple.git> and send patches! Patches against Pod::Simple are welcome. Please send bug reports to <[email protected]>. diff --git a/cpan/Pod-Simple/lib/Pod/Simple/TextContent.pm b/cpan/Pod-Simple/lib/Pod/Simple/TextContent.pm index 9d98b6f..33c34f8 100644 --- a/cpan/Pod-Simple/lib/Pod/Simple/TextContent.pm +++ b/cpan/Pod-Simple/lib/Pod/Simple/TextContent.pm @@ -6,7 +6,7 @@ use strict; use Carp (); use Pod::Simple (); use vars qw( @ISA $VERSION ); -$VERSION = '3.31'; +$VERSION = '3.30'; @ISA = ('Pod::Simple'); sub new { @@ -73,8 +73,8 @@ [email protected] mail list. Send an empty email to [email protected] to subscribe. This module is managed in an open GitHub repository, -L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or -to clone L<git://github.com/perl-pod/pod-simple.git> and send patches! +L<https://github.com/theory/pod-simple/>. Feel free to fork and contribute, or +to clone L<git://github.com/theory/pod-simple.git> and send patches! Patches against Pod::Simple are welcome. Please send bug reports to <[email protected]>. diff --git a/cpan/Pod-Simple/lib/Pod/Simple/TiedOutFH.pm b/cpan/Pod-Simple/lib/Pod/Simple/TiedOutFH.pm index b450f96..925408b 100644 --- a/cpan/Pod-Simple/lib/Pod/Simple/TiedOutFH.pm +++ b/cpan/Pod-Simple/lib/Pod/Simple/TiedOutFH.pm @@ -4,7 +4,7 @@ package Pod::Simple::TiedOutFH; use Symbol ('gensym'); use Carp (); use vars qw($VERSION ); -$VERSION = '3.31'; +$VERSION = '3.30'; #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ diff --git a/cpan/Pod-Simple/lib/Pod/Simple/Transcode.pm b/cpan/Pod-Simple/lib/Pod/Simple/Transcode.pm index 02c298f..0dee9cb 100644 --- a/cpan/Pod-Simple/lib/Pod/Simple/Transcode.pm +++ b/cpan/Pod-Simple/lib/Pod/Simple/Transcode.pm @@ -1,9 +1,8 @@ require 5; package Pod::Simple::Transcode; -use strict; -use vars qw($VERSION @ISA); -$VERSION = '3.31'; +use vars qw($VERSION ); +$VERSION = '3.30'; BEGIN { if(defined &DEBUG) {;} # Okay diff --git a/cpan/Pod-Simple/lib/Pod/Simple/TranscodeDumb.pm b/cpan/Pod-Simple/lib/Pod/Simple/TranscodeDumb.pm index cde1b4c..53082d7 100644 --- a/cpan/Pod-Simple/lib/Pod/Simple/TranscodeDumb.pm +++ b/cpan/Pod-Simple/lib/Pod/Simple/TranscodeDumb.pm @@ -5,7 +5,7 @@ require 5; package Pod::Simple::TranscodeDumb; use strict; use vars qw($VERSION %Supported); -$VERSION = '3.31'; +$VERSION = '3.30'; # This module basically pretends it knows how to transcode, except # only for null-transcodings! We use this when Encode isn't # available. diff --git a/cpan/Pod-Simple/lib/Pod/Simple/TranscodeSmart.pm b/cpan/Pod-Simple/lib/Pod/Simple/TranscodeSmart.pm index 488c2c4..0aec8d9 100644 --- a/cpan/Pod-Simple/lib/Pod/Simple/TranscodeSmart.pm +++ b/cpan/Pod-Simple/lib/Pod/Simple/TranscodeSmart.pm @@ -9,7 +9,7 @@ use strict; use Pod::Simple; require Encode; use vars qw($VERSION ); -$VERSION = '3.31'; +$VERSION = '3.30'; sub is_dumb {0} sub is_smart {1} diff --git a/cpan/Pod-Simple/lib/Pod/Simple/XHTML.pm b/cpan/Pod-Simple/lib/Pod/Simple/XHTML.pm index 537c6fb..af7e989 100644 --- a/cpan/Pod-Simple/lib/Pod/Simple/XHTML.pm +++ b/cpan/Pod-Simple/lib/Pod/Simple/XHTML.pm @@ -38,14 +38,14 @@ you can prevent high-bit characters from being encoded as HTML entities and declare the output character set as UTF-8 before parsing, like so: $psx->html_charset('UTF-8'); - $psx->html_encode_chars(q{&<>'"}); + $psx->html_encode_chars('&<>">'); =cut package Pod::Simple::XHTML; use strict; use vars qw( $VERSION @ISA $HAS_HTML_ENTITIES ); -$VERSION = '3.31'; +$VERSION = '3.30'; use Pod::Simple::Methody (); @ISA = ('Pod::Simple::Methody'); @@ -832,8 +832,8 @@ [email protected] mail list. Send an empty email to [email protected] to subscribe. This module is managed in an open GitHub repository, -L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or -to clone L<git://github.com/perl-pod/pod-simple.git> and send patches! +L<https://github.com/theory/pod-simple/>. Feel free to fork and contribute, or +to clone L<git://github.com/theory/pod-simple.git> and send patches! Patches against Pod::Simple are welcome. Please send bug reports to <[email protected]>. diff --git a/cpan/Pod-Simple/lib/Pod/Simple/XMLOutStream.pm b/cpan/Pod-Simple/lib/Pod/Simple/XMLOutStream.pm index 3090f78..6cc1fe6 100644 --- a/cpan/Pod-Simple/lib/Pod/Simple/XMLOutStream.pm +++ b/cpan/Pod-Simple/lib/Pod/Simple/XMLOutStream.pm @@ -5,7 +5,7 @@ use strict; use Carp (); use Pod::Simple (); use vars qw( $ATTR_PAD @ISA $VERSION $SORT_ATTRS); -$VERSION = '3.31'; +$VERSION = '3.30'; BEGIN { @ISA = ('Pod::Simple'); *DEBUG = \&Pod::Simple::DEBUG unless defined &DEBUG; @@ -138,8 +138,8 @@ [email protected] mail list. Send an empty email to [email protected] to subscribe. This module is managed in an open GitHub repository, -L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or -to clone L<git://github.com/perl-pod/pod-simple.git> and send patches! +L<https://github.com/theory/pod-simple/>. Feel free to fork and contribute, or +to clone L<git://github.com/theory/pod-simple.git> and send patches! Patches against Pod::Simple are welcome. Please send bug reports to <[email protected]>. diff --git a/cpan/Pod-Simple/t/search50.t b/cpan/Pod-Simple/t/search50.t index b049e15..15bf5c1 100644 --- a/cpan/Pod-Simple/t/search50.t +++ b/cpan/Pod-Simple/t/search50.t @@ -74,11 +74,11 @@ while (my ($testmod, $testpath) = each %{ $name2where }) { # print "# Comparing \"$x[0]\" to \"$x[1]\"\n"; for(@x) { s{[/\\]}{/}g; } # print "# => \"$x[0]\" to \"$x[1]\"\n"; - is( - File::Spec->rel2abs($x[0]), - $x[1], - " find('$testmod') should match survey's name2where{$testmod}" - ); + is + $x[0], + $x[1], + " find('$testmod') should match survey's name2where{$testmod}" + ; } pass; diff --git a/t/porting/customized.dat b/t/porting/customized.dat index 1c2aa9a..ee65785 100644 --- a/t/porting/customized.dat +++ b/t/porting/customized.dat @@ -33,6 +33,14 @@ ExtUtils::MakeMaker cpan/ExtUtils-MakeMaker/lib/ExtUtils/MY.pm 22fe9596a0237252f ExtUtils::MakeMaker cpan/ExtUtils-MakeMaker/lib/ExtUtils/testlib.pm 7fbc42ca2ebc6c677b79ae5fd5647243cf069463 ExtUtils::MakeMaker cpan/ExtUtils-MakeMaker/t/basic.t 6cdc7701b50e586bc9c4cfb1616de8eb0b1baf34 ExtUtils::MakeMaker cpan/ExtUtils-MakeMaker/t/pm_to_blib.t 71ebcee355691ce374fcad251b12d8b2412462b3 +Pod::Simple cpan/Pod-Simple/lib/Pod/Simple/BlackBox.pm 4108633c4f40f7f63c5a0245df2b07a4a2f22fec +Pod::Simple cpan/Pod-Simple/lib/Pod/Simple/Search.pm 7a48823f9faec6d6bbef08060e679e46ccf60bc8 +Pod::Simple cpan/Pod-Simple/t/search10.t 776e41bf3494da010f306e0f6cadd416d84671a0 +Pod::Simple cpan/Pod-Simple/t/search12.t 73e2af262f0d78bcf8f45e56aafd982acaea6f7d +Pod::Simple cpan/Pod-Simple/t/search20.t 0f82fadfb5a4a04e223a4457061e225565f33c2d +Pod::Simple cpan/Pod-Simple/t/search22.t f14fbb64a42fbfe4bd1ee9f451394ab79a20efc0 +Pod::Simple cpan/Pod-Simple/t/search26.t d2905aa0fa92786feedbf1f373f69712b63a2a1c +Pod::Simple cpan/Pod-Simple/t/search28.t 4c1d271d28e7cf02de5fcc6261b061351bc9c9a2 Scalar-List-Utils cpan/Scalar-List-Utils/lib/List/Util.pm 62d2a82a811b531a3fd25cb60c4c2ef943858892 Scalar-List-Utils cpan/Scalar-List-Utils/lib/List/Util/XS.pm 08abbe1a707927cee53e85ba85d6bd35c1c2ae50 Scalar-List-Utils cpan/Scalar-List-Utils/lib/Scalar/Util.pm 7f1e6eb11105623200ef9cdcb881545ccb769ded -- Perl5 Master Repository
