In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/534577b24e15801a8f86e111297e0612ea16e4c5?hp=3823048b64b018d16e9a9cc16add1847fe60e6bd>
- Log ----------------------------------------------------------------- commit 534577b24e15801a8f86e111297e0612ea16e4c5 Author: Chris 'BinGOs' Williams <[email protected]> Date: Wed Feb 11 14:30:08 2015 +0000 Update Pod-Parser to CPAN version 1.63 [DELTA] 10-Feb-2015 Marek Rouchal <[email protected]> ----------------------------------------------------------------------------- Version 1.63 + CPAN#101847: [PATCH] Bump $VERSION in module changed since Pod-Parser-1.60 increased VERSION in all *.pm files + CPAN#98610: Pod::Find should skip also object directories of modern vc systems (.git, .hg) implemented in Pod::Find Thanks for the reports and patches! M Porting/Maintainers.pl M cpan/Pod-Parser/lib/Pod/Find.pm M cpan/Pod-Parser/lib/Pod/InputObjects.pm M cpan/Pod-Parser/lib/Pod/ParseUtils.pm M cpan/Pod-Parser/lib/Pod/Parser.pm M cpan/Pod-Parser/lib/Pod/Select.pm M cpan/Pod-Parser/t/pod/find.t commit e2e9df706c4de2288ad14439a7f742532bc0665d Author: Chris 'BinGOs' Williams <[email protected]> Date: Wed Feb 11 14:26:13 2015 +0000 Update Config-Perl-V to CPAN version 0.23 [DELTA] 0.23 - 11 Feb 2015, H.Merijn Brand * Update copyright to 2015 * Add summary tests * Remove perl recommendation from META as it breaks cpan clients * Move repo to github M Porting/Maintainers.pl M cpan/Config-Perl-V/V.pm M cpan/Config-Perl-V/t/10_base.t ----------------------------------------------------------------------- Summary of changes: Porting/Maintainers.pl | 6 ++---- cpan/Config-Perl-V/V.pm | 4 ++-- cpan/Config-Perl-V/t/10_base.t | 7 ++++++- cpan/Pod-Parser/lib/Pod/Find.pm | 6 +++--- cpan/Pod-Parser/lib/Pod/InputObjects.pm | 2 +- cpan/Pod-Parser/lib/Pod/ParseUtils.pm | 2 +- cpan/Pod-Parser/lib/Pod/Parser.pm | 2 +- cpan/Pod-Parser/lib/Pod/Select.pm | 2 +- cpan/Pod-Parser/t/pod/find.t | 6 ++++++ 9 files changed, 23 insertions(+), 14 deletions(-) diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index 1ca8b9d..b10c8a4 100755 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -220,7 +220,7 @@ use File::Glob qw(:case); }, 'Config::Perl::V' => { - 'DISTRIBUTION' => 'HMBRAND/Config-Perl-V-0.22.tgz', + 'DISTRIBUTION' => 'HMBRAND/Config-Perl-V-0.23.tgz', 'FILES' => q[cpan/Config-Perl-V], 'EXCLUDED' => [qw( examples/show-v.pl @@ -914,10 +914,8 @@ use File::Glob qw(:case); }, 'Pod::Parser' => { - 'DISTRIBUTION' => 'MAREKR/Pod-Parser-1.62.tar.gz', + 'DISTRIBUTION' => 'MAREKR/Pod-Parser-1.63.tar.gz', 'FILES' => q[cpan/Pod-Parser], - # Waiting to be merged upstream: see CPAN RT#101847 - 'CUSTOMIZED' => [ qw( lib/Pod/PlainText.pm) ], }, 'Pod::Perldoc' => { diff --git a/cpan/Config-Perl-V/V.pm b/cpan/Config-Perl-V/V.pm index 4cbf6fe..a922a75 100644 --- a/cpan/Config-Perl-V/V.pm +++ b/cpan/Config-Perl-V/V.pm @@ -8,7 +8,7 @@ use warnings; use Config; use Exporter; use vars qw($VERSION @ISA @EXPORT_OK %EXPORT_TAGS); -$VERSION = "0.22"; +$VERSION = "0.23"; @ISA = ("Exporter"); @EXPORT_OK = qw( plv2hash summary myconfig signature ); %EXPORT_TAGS = ( @@ -534,7 +534,7 @@ H.Merijn Brand <[email protected]> =head1 COPYRIGHT AND LICENSE -Copyright (C) 2009-2014 H.Merijn Brand +Copyright (C) 2009-2015 H.Merijn Brand This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. diff --git a/cpan/Config-Perl-V/t/10_base.t b/cpan/Config-Perl-V/t/10_base.t index a0a220c..6113828 100644 --- a/cpan/Config-Perl-V/t/10_base.t +++ b/cpan/Config-Perl-V/t/10_base.t @@ -5,7 +5,7 @@ use warnings; BEGIN { use Test::More; - my $tests = 9; + my $tests = 12; unless ($ENV{PERL_CORE}) { require Test::NoWarnings; Test::NoWarnings->import (); @@ -21,6 +21,11 @@ ok (my $conf = Config::Perl::V::myconfig, "Read config"); ok (exists $conf->{$_}, "Has $_ entry") for qw( build environment config inc ); is (lc $conf->{build}{osname}, lc $conf->{config}{osname}, "osname"); +# Test summary +ok (my $info1 = Config::Perl::V::summary ($conf), "Get a summary for \$conf"); +ok (my $info2 = Config::Perl::V::summary, "Get a summary for \$^X"); +is_deeply ($info1, $info2, "Info should match"); + SKIP: { # Test that the code that shells out to perl -V and parses the output # gives the same results as the code that calls Config::* routines directly. diff --git a/cpan/Pod-Parser/lib/Pod/Find.pm b/cpan/Pod-Parser/lib/Pod/Find.pm index 6149e79..f258f26 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.62'; ## Current version of this package +$VERSION = '1.63'; ## Current version of this package require 5.005; ## requires this Perl version or later use Carp; @@ -56,7 +56,7 @@ so be sure to specify them in the B<use> statement if you need them: use Pod::Find qw(pod_find); From this version on the typical SCM (software configuration management) -files/directories like RCS, CVS, SCCS, .svn are ignored. +directories are ignored. These are: RCS, CVS, SCCS, .svn, .hg, .git, .sync =cut @@ -226,7 +226,7 @@ sub pod_find File::Find::find( sub { my $item = $File::Find::name; if(-d) { - if($item =~ m{/(?:RCS|CVS|SCCS|\.svn)$}) { + if($item =~ m{/(?:RCS|CVS|SCCS|\.svn|\.hg|\.git|\.sync)$}) { $File::Find::prune = 1; return; } diff --git a/cpan/Pod-Parser/lib/Pod/InputObjects.pm b/cpan/Pod-Parser/lib/Pod/InputObjects.pm index 87ce247..c4d6fc2 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.62'; ## Current version of this package +$VERSION = '1.63'; ## Current version of this package require 5.005; ## requires this Perl version or later ############################################################################# diff --git a/cpan/Pod-Parser/lib/Pod/ParseUtils.pm b/cpan/Pod-Parser/lib/Pod/ParseUtils.pm index e1ff2ae..2afd0cd 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.62'; ## Current version of this package +$VERSION = '1.63'; ## Current version of this package require 5.005; ## requires this Perl version or later =head1 NAME diff --git a/cpan/Pod-Parser/lib/Pod/Parser.pm b/cpan/Pod-Parser/lib/Pod/Parser.pm index f3a8619..63edcd2 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.62'; ## Current version of this package +$VERSION = '1.63'; ## Current version of this package require 5.005; ## requires this Perl version or later ############################################################################# diff --git a/cpan/Pod-Parser/lib/Pod/Select.pm b/cpan/Pod-Parser/lib/Pod/Select.pm index 6657def..70267e9 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.62'; ## Current version of this package +$VERSION = '1.63'; ## Current version of this package require 5.005; ## requires this Perl version or later ############################################################################# diff --git a/cpan/Pod-Parser/t/pod/find.t b/cpan/Pod-Parser/t/pod/find.t index 7cfd7ae..90a57ad 100644 --- a/cpan/Pod-Parser/t/pod/find.t +++ b/cpan/Pod-Parser/t/pod/find.t @@ -67,6 +67,12 @@ if($^O =~ /dos|win32/i && $resfile =~ /~\d(?=\\|$)/) { $resfile =~ s/\\~\d(?=\\|$)/[^\\\\]+/g; ok($cmpfile =~ /^$resfile$/, "pod_where found File::Find (with long filename matching)") || diag("'$cmpfile' does not match /^$resfile\$/"); +} elsif($^O =~ /dos|win32/i && $cmpfile =~ /~\d(?=\\|$)/) { + # we have ~1 short filenames + $cmpfile = quotemeta($cmpfile); + $cmpfile =~ s/\\~\d(?=\\|$)/[^\\\\]+/g; + ok($resfile =~ /^$cmpfile$/, "pod_where found File::Find (with long filename matching)") || + diag("'$resfile' does not match /^$cmpfile\$/"); } else { is($resfile,$cmpfile,"pod_where found File::Find"); } -- Perl5 Master Repository
