'Module::Build' =>
{
'MAINTAINER' => 'kwilliams',
- 'DISTRIBUTION' => 'DAGOLDEN/Module-Build-0.3800.tar.gz',
+ 'DISTRIBUTION' => 'DAGOLDEN/Module-Build-0.39_01.tar.gz',
'FILES' => q[cpan/Module-Build],
'EXCLUDED' => [
qw{ t/par.t t/signature.t },
Revision history for Perl extension Module::Build.
+0.39_01 - Thu Jul 21 16:48:48 EDT 2011
+
+ [BUG FIXES]
+
+ - Fixed bug with a nested directory named 'share' inside a ShareDir
+ (RT#68585) [David Golden]
+
+ - Fixed failing tilde.t when run under UID without passwd entry
+ (RT#67893) [Dominic Hargreaves]
+
+ [DOCUMENTATION]
+
+ - Fixed typo in Module::Build (RT#67008) [David Golden]
+
+ [OTHER]
+
+ - Pod to HTML internals changed to support new Pod::Html work
+ in the Perl core
+
0.3800 - Sat Mar 5 15:11:41 EST 2011
Summary of major changes since 0.3624:
use vars qw($VERSION @ISA);
@ISA = qw(Module::Build::Base);
-$VERSION = '0.3800';
+$VERSION = '0.39_01';
$VERSION = eval $VERSION;
=head1 GUIDE TO DOCUMENTATION
-The documentation for C<Module::Build> is broken up into three sections:
+The documentation for C<Module::Build> is broken up into sections:
=over
use strict;
use vars qw($VERSION);
-$VERSION = '0.3800';
+$VERSION = '0.39_01';
$VERSION = eval $VERSION;
BEGIN { require 5.00503 }
my %files;
for my $dir ( @$list ) {
for my $f ( @{ $self->rscan_dir( $dir, sub {-f} )} ) {
- $f =~ s{\A.*\Q$dir\E/}{};
+ $f =~ s{\A.*?\Q$dir\E/}{};
$files{"$dir/$f"} = "$prefix/$f";
}
}
$title .= " - $abstract" if $abstract;
my @opts = (
- '--flush',
"--title=$title",
"--podpath=$podpath",
"--infile=$infile",
"--htmlroot=$path2root",
);
- if ( eval{Pod::Html->VERSION(1.03)} ) {
+ unless ( eval{Pod::Html->VERSION(1.12)} ) {
+ push( @opts, ('--flush') ); # caching removed in 1.12
+ }
+
+ if ( eval{Pod::Html->VERSION(1.12)} ) {
+ push( @opts, ('--header', '--backlink') );
+ } elsif ( eval{Pod::Html->VERSION(1.03)} ) {
push( @opts, ('--header', '--backlink=Back to Top') );
}
use strict;
use vars qw($VERSION);
-$VERSION = '0.3800';
+$VERSION = '0.39_01';
use File::Basename ();
use File::Spec;
use strict;
use vars qw($VERSION);
-$VERSION = '0.3800';
+$VERSION = '0.39_01';
$VERSION = eval $VERSION;
use Config;
package Module::Build::Cookbook;
use strict;
use vars qw($VERSION);
-$VERSION = '0.3800';
+$VERSION = '0.39_01';
=head1 NAME
package Module::Build::Dumper;
use strict;
use vars qw($VERSION);
-$VERSION = '0.3800';
+$VERSION = '0.39_01';
# This is just a split-out of a wrapper function to do Data::Dumper
# stuff "the right way". See:
use strict;
use vars qw($VERSION);
-$VERSION = '0.3800';
+$VERSION = '0.39_01';
$VERSION = eval $VERSION;
require Module::Metadata;
use strict;
use vars qw($VERSION);
-$VERSION = '0.3800';
+$VERSION = '0.39_01';
$VERSION = eval $VERSION;
use Data::Dumper;
use IO::File;
use vars qw($VERSION);
use IO::File;
-$VERSION = '0.3800';
+$VERSION = '0.39_01';
$VERSION = eval $VERSION;
# This code is mostly borrowed from ExtUtils::MM_Unix 6.10_03, with a
use strict;
use vars qw($VERSION);
-$VERSION = '0.3800';
+$VERSION = '0.39_01';
$VERSION = eval $VERSION;
use Module::Build::Base;
use strict;
use vars qw($VERSION);
-$VERSION = '0.3800';
+$VERSION = '0.39_01';
$VERSION = eval $VERSION;
use Module::Build::Base;
use strict;
use vars qw($VERSION);
-$VERSION = '0.3800';
+$VERSION = '0.39_01';
$VERSION = eval $VERSION;
use Module::Build::Base;
use strict;
use vars qw($VERSION);
-$VERSION = '0.3800';
+$VERSION = '0.39_01';
$VERSION = eval $VERSION;
use Module::Build::Base;
use strict;
use vars qw($VERSION);
-$VERSION = '0.3800';
+$VERSION = '0.39_01';
$VERSION = eval $VERSION;
use Module::Build::Base;
use vars qw(@ISA);
use strict;
use vars qw($VERSION);
-$VERSION = '0.3800';
+$VERSION = '0.39_01';
$VERSION = eval $VERSION;
use Module::Build::Base;
use strict;
use vars qw($VERSION);
-$VERSION = '0.3800';
+$VERSION = '0.39_01';
$VERSION = eval $VERSION;
use Module::Build::Base;
use strict;
use vars qw($VERSION);
-$VERSION = '0.3800';
+$VERSION = '0.39_01';
$VERSION = eval $VERSION;
use Module::Build::Base;
use Config;
use strict;
use vars qw($VERSION);
-$VERSION = '0.3800';
+$VERSION = '0.39_01';
$VERSION = eval $VERSION;
use Module::Build::Base;
use strict;
use vars qw($VERSION);
-$VERSION = '0.3800';
+$VERSION = '0.39_01';
$VERSION = eval $VERSION;
use Config;
use strict;
use vars qw($VERSION);
-$VERSION = '0.3800';
+$VERSION = '0.39_01';
$VERSION = eval $VERSION;
use Module::Build::Platform::Unix;
use strict;
use vars qw($VERSION);
-$VERSION = '0.3800';
+$VERSION = '0.39_01';
$VERSION = eval $VERSION;
use Module::Build::Platform::Unix;
use strict;
use vars qw($VERSION);
-$VERSION = '0.3800';
+$VERSION = '0.39_01';
$VERSION = eval $VERSION;
use Module::Build::Platform::Unix;
use strict;
use vars qw($VERSION);
-$VERSION = '0.3800';
+$VERSION = '0.39_01';
$VERSION = eval $VERSION;
use Module::Build::Platform::Unix;
use strict;
use vars qw($VERSION);
-$VERSION = '0.3800';
+$VERSION = '0.39_01';
$VERSION = eval $VERSION;
use vars qw(@ISA);
my $package = shift;
my $self;
-
- # Try using Pod::Parser first
- if (eval{ require Pod::Parser; 1; }) {
- @ISA = qw(Pod::Parser);
- $self = $package->SUPER::new(@_);
- $self->{have_pod_parser} = 1;
- } else {
- @ISA = ();
- *parse_from_filehandle = \&_myparse_from_filehandle;
- $self = bless {have_pod_parser => 0, @_}, $package;
- }
+ @ISA = ();
+ $self = bless {have_pod_parser => 0, @_}, $package;
unless ($self->{fh}) {
die "No 'file' or 'fh' parameter given" unless $self->{file};
return $self;
}
-sub _myparse_from_filehandle {
+sub parse_from_filehandle {
my ($self, $fh) = @_;
local $_;
return $self->{author} || [];
}
-
-################## Pod::Parser overrides ###########
-sub initialize {
- my $self = shift;
- $self->{_head} = '';
- $self->SUPER::initialize();
-}
-
-sub command {
- my ($self, $cmd, $text) = @_;
- if ( $cmd eq 'head1' ) {
- $text =~ s/^\s+//;
- $text =~ s/\s+$//;
- $self->{_head} = $text;
- }
-}
-
-sub textblock {
- my ($self, $text) = @_;
- $text =~ s/^\s+//;
- $text =~ s/\s+$//;
- if (uc $self->{_head} eq 'NAME') {
- my ($name, $abstract) = split( /\s+-\s+/, $text, 2 );
- $self->{abstract} = $abstract;
- } elsif ($self->{_head} =~ /^AUTHORS?$/i) {
- push @{$self->{author}}, $text if $text =~ /\@/;
- }
-}
-
-sub verbatim {}
-sub interior_sequence {}
-
-1;
package inc::latest;
use strict;
use vars qw($VERSION);
-$VERSION = '0.3800';
+$VERSION = '0.39_01';
$VERSION = eval $VERSION;
use Carp;
package inc::latest::private;
use strict;
use vars qw($VERSION);
-$VERSION = '0.3800';
+$VERSION = '0.39_01';
$VERSION = eval $VERSION;
use File::Spec;
use lib 't/lib';
use MBTest;
use CPAN::Meta 2.110420;
+use CPAN::Meta::YAML;
use Parse::CPAN::Meta 1.4401;
plan tests => 39;
# Begin testing
#--------------------------------------------------------------------------#
-plan tests => 21;
+plan tests => 23;
blib_load('Module::Build');
$dist->add_file('share/foo.txt',<< '---');
This is foo.txt
---
+$dist->add_file('share/subdir/share/anotherbar.txt',<< '---');
+This is anotherbar.txt in a subdir - test for a bug in M::B 0.38 when full path contains 'share/.../*share/...' subdir
+---
+$dist->add_file('share/subdir/whatever/anotherfoo.txt',<< '---');
+This is anotherfoo.txt in a subdir - this shoud work on M::B 0.38
+---
$dist->add_file('other/share/bar.txt',<< '---');
This is bar.txt
---
$dist->regen;
ok( -e catfile(qw/share foo.txt/), "Created 'share' directory" );
+ok( -d catfile(qw/share subdir share/), "Created 'share/subdir/share' directory" );
+ok( -d catfile(qw/share subdir whatever/), "Created 'share/subdir/whatever' directory" );
ok( -e catfile(qw/other share bar.txt/), "Created 'other/share' directory" );
# Check default when share_dir is not given
is_deeply( $mb->_find_share_dir_files,
{
"share/foo.txt" => "dist/Simple-Share/foo.txt",
+ "share/subdir/share/anotherbar.txt" => "dist/Simple-Share/subdir/share/anotherbar.txt",
+ "share/subdir/whatever/anotherfoo.txt" => "dist/Simple-Share/subdir/whatever/anotherfoo.txt",
"other/share/bar.txt" => "module/Simple-Share/bar.txt",
},
"share_dir filemap for copying to lib complete"
is_deeply(
[ sort @$share_list ], [
'blib/lib/auto/share/dist/Simple-Share/foo.txt',
+ 'blib/lib/auto/share/dist/Simple-Share/subdir/share/anotherbar.txt',
+ 'blib/lib/auto/share/dist/Simple-Share/subdir/whatever/anotherfoo.txt',
'blib/lib/auto/share/module/Simple-Share/bar.txt',
],
"share_dir files copied to blib"
is_deeply(
[ sort @$share_list ], [
"$temp_install/lib/perl5/auto/share/dist/Simple-Share/foo.txt",
+ "$temp_install/lib/perl5/auto/share/dist/Simple-Share/subdir/share/anotherbar.txt",
+ "$temp_install/lib/perl5/auto/share/dist/Simple-Share/subdir/whatever/anotherfoo.txt",
"$temp_install/lib/perl5/auto/share/module/Simple-Share/bar.txt",
],
"share_dir files correctly installed"
unless (defined $home) {
my @info = eval { getpwuid $> };
- skip "No home directory for tilde-expansion tests", 15 if $@;
+ skip "No home directory for tilde-expansion tests", 15 if $@
+ or !defined $info[7];
$home = $info[7];
}
# Again, with named users
SKIP: {
my @info = eval { getpwuid $> };
- skip "No home directory for tilde-expansion tests", 1 if $@;
+ skip "No home directory for tilde-expansion tests", 1 if $@
+ or !defined $info[7] or !defined $info[0];
my ($me, $home) = @info[0,7];
my $expected = "$home/fooxzy";
=item *
+L<Module::Build> has been upgraded from version 0.3800 to version 0.39_01.
+
+Pod to HTML internals changed to support revisions to Pod::Html in core.
+Also fixes some minor bugs. [rt.cpan.org #68585] [rt.cpan.org #67893]
+[rt.cpan.org #67008]
+
+=item *
+
L<PerlIO::via> has been upgraded from version 0.11 to version 0.12.
The only change is a correction in the documentation.
https://perl5.git.perl.org / perl5.git / commitdiff