'Module::Build' =>
{
'MAINTAINER' => 'kwilliams',
- 'DISTRIBUTION' => 'DAGOLDEN/Module-Build-0.35_14.tar.gz',
+ 'DISTRIBUTION' => 'DAGOLDEN/Module-Build-0.35_15.tar.gz',
'FILES' => q[cpan/Module-Build],
'EXCLUDED' => [ qw{ t/par.t t/signature.t },
qr!^contrib/!, qr!^devtools! ],
Revision history for Perl extension Module::Build.
+0.35_15 - Thu Dec 17 17:51:22 EST 2009
+
+ Bug fixes:
+
+ - Make sure PPM tests are skipped if IO::File is too old [David Golden]
+
0.35_14 - Thu Dec 17 16:02:14 EST 2009
Bug fixes:
use vars qw($VERSION @ISA);
@ISA = qw(Module::Build::Base);
-$VERSION = '0.35_14';
+$VERSION = '0.35_15';
$VERSION = eval $VERSION;
# Okay, this is the brute-force method of finding out what kind of
use strict;
use vars qw($VERSION);
-$VERSION = '0.35_14';
+$VERSION = '0.35_15';
$VERSION = eval $VERSION;
BEGIN { require 5.00503 }
use strict;
use vars qw($VERSION);
-$VERSION = '0.35_14';
+$VERSION = '0.35_15';
use File::Basename ();
use File::Spec;
use strict;
use vars qw($VERSION);
-$VERSION = '0.35_14';
+$VERSION = '0.35_15';
$VERSION = eval $VERSION;
use Config;
package Module::Build::Cookbook;
use strict;
use vars qw($VERSION);
-$VERSION = '0.35_14';
+$VERSION = '0.35_15';
=head1 NAME
package Module::Build::Dumper;
use strict;
use vars qw($VERSION);
-$VERSION = '0.35_14';
+$VERSION = '0.35_15';
# 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.35_14';
+$VERSION = '0.35_15';
$VERSION = eval $VERSION;
use File::Spec;
use strict;
use vars qw($VERSION);
-$VERSION = '0.35_14';
+$VERSION = '0.35_15';
$VERSION = eval $VERSION;
use Data::Dumper;
use IO::File;
use strict;
use Config;
use vars qw($VERSION);
-$VERSION = '0.35_14';
+use IO::File;
+
+$VERSION = '0.35_15';
$VERSION = eval $VERSION;
# This code is mostly borrowed from ExtUtils::MM_Unix 6.10_03, with a
my $fh = IO::File->new(">$ppd_file")
or die "Cannot write to $ppd_file: $!";
+ my $io_file_ok = eval { IO::File->VERSION(1.13); 1 };
$fh->binmode(":utf8")
- if $fh->can('binmode') && $] >= 5.008 && $Config{useperlio};
+ if $io_file_ok && $fh->can('binmode') && $] >= 5.008 && $Config{useperlio};
print $fh $ppd;
close $fh;
use strict;
use vars qw($VERSION);
-$VERSION = '0.35_14';
+$VERSION = '0.35_15';
$VERSION = eval $VERSION;
use Module::Build::Base;
use strict;
use vars qw($VERSION);
-$VERSION = '0.35_14';
+$VERSION = '0.35_15';
$VERSION = eval $VERSION;
use Module::Build::Base;
use strict;
use vars qw($VERSION);
-$VERSION = '0.35_14';
+$VERSION = '0.35_15';
$VERSION = eval $VERSION;
use Module::Build::Base;
use strict;
use vars qw($VERSION);
-$VERSION = '0.35_14';
+$VERSION = '0.35_15';
$VERSION = eval $VERSION;
use Module::Build::Base;
use strict;
use vars qw($VERSION);
-$VERSION = '0.35_14';
+$VERSION = '0.35_15';
$VERSION = eval $VERSION;
use Module::Build::Base;
use vars qw(@ISA);
use strict;
use vars qw($VERSION);
-$VERSION = '0.35_14';
+$VERSION = '0.35_15';
$VERSION = eval $VERSION;
use Module::Build::Base;
use strict;
use vars qw($VERSION);
-$VERSION = '0.35_14';
+$VERSION = '0.35_15';
$VERSION = eval $VERSION;
use Module::Build::Base;
use strict;
use vars qw($VERSION);
-$VERSION = '0.35_14';
+$VERSION = '0.35_15';
$VERSION = eval $VERSION;
use Module::Build::Base;
use Config;
use strict;
use vars qw($VERSION);
-$VERSION = '0.35_14';
+$VERSION = '0.35_15';
$VERSION = eval $VERSION;
use Module::Build::Base;
use strict;
use vars qw($VERSION);
-$VERSION = '0.35_14';
+$VERSION = '0.35_15';
$VERSION = eval $VERSION;
use Config;
use strict;
use vars qw($VERSION);
-$VERSION = '0.35_14';
+$VERSION = '0.35_15';
$VERSION = eval $VERSION;
use Module::Build::Platform::Unix;
use strict;
use vars qw($VERSION);
-$VERSION = '0.35_14';
+$VERSION = '0.35_15';
$VERSION = eval $VERSION;
use Module::Build::Platform::Unix;
use strict;
use vars qw($VERSION);
-$VERSION = '0.35_14';
+$VERSION = '0.35_15';
$VERSION = eval $VERSION;
use Module::Build::Platform::Unix;
use strict;
use vars qw($VERSION);
-$VERSION = '0.35_14';
+$VERSION = '0.35_15';
$VERSION = eval $VERSION;
use Module::Build::Platform::Unix;
use strict;
use vars qw($VERSION);
-$VERSION = '0.35_14';
+$VERSION = '0.35_15';
$VERSION = eval $VERSION;
use vars qw(@ISA);
package inc::latest;
use strict;
use vars qw($VERSION);
-$VERSION = '0.35_14';
+$VERSION = '0.35_15';
$VERSION = eval $VERSION;
use Carp;
package inc::latest::private;
use strict;
use vars qw($VERSION);
-$VERSION = '0.35_14';
+$VERSION = '0.35_15';
$VERSION = eval $VERSION;
use File::Spec;
blib_load('Module::Build');
blib_load('Module::Build::ConfigData');
+my $PPM_support = Module::Build::ConfigData->feature('PPM_support');
my $manpage_support = Module::Build::ConfigData->feature('manpage_support');
my $HTML_support = Module::Build::ConfigData->feature('HTML_support');
my ($have_c_compiler, $tmp_exec) = check_compiler();
if ( ! $have_c_compiler ) {
plan skip_all => 'No compiler found';
+ } elsif ( ! $PPM_support ) {
+ plan skip_all => 'PPM support modules not installed';
} elsif ( !$Config{usedl} ) {
- plan skip_all => 'Perl not compiled for dynamic loading'
+ plan skip_all => 'Perl not compiled for dynamic loading';
} elsif ( ! $HTML_support ) {
plan skip_all => "HTML support not installed";
} elsif ( ! eval {require Archive::Tar} ) {
use strict;
use lib 't/lib';
-use MBTest tests => 30;
+use MBTest tests => 29;
blib_load('Module::Build');
blib_load('Module::Build::ConfigData');
}
}
-{
- # Check PPD
- $mb->dispatch('ppd', args => {codebase => '/path/to/codebase'});
-
- my $ppd = slurp('Simple.ppd');
-
- # This test is quite a hack since with XML you don't really want to
- # do a strict string comparison, but absent an XML parser it's the
- # best we can do.
- is $ppd, <<'EOF';
-<SOFTPKG NAME="Simple" VERSION="0.01">
- <ABSTRACT>Perl extension for blah blah blah</ABSTRACT>
- <AUTHOR>A. U. Thor, a.u.thor@a.galaxy.far.far.away</AUTHOR>
- <IMPLEMENTATION>
- <REQUIRE NAME="File::Spec" VERSION="0" />
- <CODEBASE HREF="/path/to/codebase" />
- </IMPLEMENTATION>
-</SOFTPKG>
-EOF
-}
-
eval {$mb->dispatch('realclean')};
is $@, '';
projects / p5sagit/p5-mst-13.2.git / commitdiff