This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Updated Module::Build to 0.35_15
authorDavid Golden <dagolden@cpan.org>
Thu, 17 Dec 2009 22:59:27 +0000 (17:59 -0500)
committerDavid Golden <dagolden@cpan.org>
Thu, 17 Dec 2009 23:00:17 +0000 (18:00 -0500)
This is just to sync with CPAN -- these changes should not impact
blead.

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]

30 files changed:
Porting/Maintainers.pl
cpan/Module-Build/Changes
cpan/Module-Build/lib/Module/Build.pm
cpan/Module-Build/lib/Module/Build/Base.pm
cpan/Module-Build/lib/Module/Build/Compat.pm
cpan/Module-Build/lib/Module/Build/Config.pm
cpan/Module-Build/lib/Module/Build/Cookbook.pm
cpan/Module-Build/lib/Module/Build/Dumper.pm
cpan/Module-Build/lib/Module/Build/ModuleInfo.pm
cpan/Module-Build/lib/Module/Build/Notes.pm
cpan/Module-Build/lib/Module/Build/PPMMaker.pm
cpan/Module-Build/lib/Module/Build/Platform/Amiga.pm
cpan/Module-Build/lib/Module/Build/Platform/Default.pm
cpan/Module-Build/lib/Module/Build/Platform/EBCDIC.pm
cpan/Module-Build/lib/Module/Build/Platform/MPEiX.pm
cpan/Module-Build/lib/Module/Build/Platform/MacOS.pm
cpan/Module-Build/lib/Module/Build/Platform/RiscOS.pm
cpan/Module-Build/lib/Module/Build/Platform/Unix.pm
cpan/Module-Build/lib/Module/Build/Platform/VMS.pm
cpan/Module-Build/lib/Module/Build/Platform/VOS.pm
cpan/Module-Build/lib/Module/Build/Platform/Windows.pm
cpan/Module-Build/lib/Module/Build/Platform/aix.pm
cpan/Module-Build/lib/Module/Build/Platform/cygwin.pm
cpan/Module-Build/lib/Module/Build/Platform/darwin.pm
cpan/Module-Build/lib/Module/Build/Platform/os2.pm
cpan/Module-Build/lib/Module/Build/PodParser.pm
cpan/Module-Build/lib/inc/latest.pm
cpan/Module-Build/lib/inc/latest/private.pm
cpan/Module-Build/t/ppm.t
cpan/Module-Build/t/runthrough.t

index 1f1a431..93a4e11 100755 (executable)
@@ -1004,7 +1004,7 @@ use File::Glob qw(:case);
     '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! ],
index def6bc9..127bb30 100644 (file)
@@ -1,5 +1,11 @@
 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:
index cc5d0fb..44deb4a 100644 (file)
@@ -15,7 +15,7 @@ use Module::Build::Base;
 
 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
index c52ec72..55cea16 100644 (file)
@@ -4,7 +4,7 @@ package Module::Build::Base;
 
 use strict;
 use vars qw($VERSION);
-$VERSION = '0.35_14';
+$VERSION = '0.35_15';
 $VERSION = eval $VERSION;
 BEGIN { require 5.00503 }
 
index eeeb2bc..d5f4853 100644 (file)
@@ -2,7 +2,7 @@ package Module::Build::Compat;
 
 use strict;
 use vars qw($VERSION);
-$VERSION = '0.35_14';
+$VERSION = '0.35_15';
 
 use File::Basename ();
 use File::Spec;
index 0fba67a..f8b1a08 100644 (file)
@@ -2,7 +2,7 @@ package Module::Build::Config;
 
 use strict;
 use vars qw($VERSION);
-$VERSION = '0.35_14';
+$VERSION = '0.35_15';
 $VERSION = eval $VERSION;
 use Config;
 
index e4df170..2f04d68 100644 (file)
@@ -1,7 +1,7 @@
 package Module::Build::Cookbook;
 use strict;
 use vars qw($VERSION);
-$VERSION = '0.35_14';
+$VERSION = '0.35_15';
 
 
 =head1 NAME
index f094172..b47f37e 100644 (file)
@@ -1,7 +1,7 @@
 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:
index b82d1b6..907b116 100644 (file)
@@ -8,7 +8,7 @@ package Module::Build::ModuleInfo;
 
 use strict;
 use vars qw($VERSION);
-$VERSION = '0.35_14';
+$VERSION = '0.35_15';
 $VERSION = eval $VERSION;
 
 use File::Spec;
index f227568..9fd5b2c 100644 (file)
@@ -4,7 +4,7 @@ package Module::Build::Notes;
 
 use strict;
 use vars qw($VERSION);
-$VERSION = '0.35_14';
+$VERSION = '0.35_15';
 $VERSION = eval $VERSION;
 use Data::Dumper;
 use IO::File;
index 89eb3d9..c3da860 100644 (file)
@@ -3,7 +3,9 @@ package Module::Build::PPMMaker;
 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
@@ -101,8 +103,9 @@ EOF
   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;
 
index 81cba49..13195d0 100644 (file)
@@ -2,7 +2,7 @@ package Module::Build::Platform::Amiga;
 
 use strict;
 use vars qw($VERSION);
-$VERSION = '0.35_14';
+$VERSION = '0.35_15';
 $VERSION = eval $VERSION;
 use Module::Build::Base;
 
index 8fc7f2d..070b089 100644 (file)
@@ -2,7 +2,7 @@ package Module::Build::Platform::Default;
 
 use strict;
 use vars qw($VERSION);
-$VERSION = '0.35_14';
+$VERSION = '0.35_15';
 $VERSION = eval $VERSION;
 use Module::Build::Base;
 
index d116684..0c5adf0 100644 (file)
@@ -2,7 +2,7 @@ package Module::Build::Platform::EBCDIC;
 
 use strict;
 use vars qw($VERSION);
-$VERSION = '0.35_14';
+$VERSION = '0.35_15';
 $VERSION = eval $VERSION;
 use Module::Build::Base;
 
index 56e98ba..ee3a8f4 100644 (file)
@@ -2,7 +2,7 @@ package Module::Build::Platform::MPEiX;
 
 use strict;
 use vars qw($VERSION);
-$VERSION = '0.35_14';
+$VERSION = '0.35_15';
 $VERSION = eval $VERSION;
 use Module::Build::Base;
 
index 479ffd2..ff707a1 100644 (file)
@@ -2,7 +2,7 @@ package Module::Build::Platform::MacOS;
 
 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);
index 39756ab..f269ca2 100644 (file)
@@ -2,7 +2,7 @@ package Module::Build::Platform::RiscOS;
 
 use strict;
 use vars qw($VERSION);
-$VERSION = '0.35_14';
+$VERSION = '0.35_15';
 $VERSION = eval $VERSION;
 use Module::Build::Base;
 
index 85500a3..46b3bbb 100644 (file)
@@ -2,7 +2,7 @@ package Module::Build::Platform::Unix;
 
 use strict;
 use vars qw($VERSION);
-$VERSION = '0.35_14';
+$VERSION = '0.35_15';
 $VERSION = eval $VERSION;
 use Module::Build::Base;
 
index bad1aaf..e5c3cbc 100644 (file)
@@ -2,7 +2,7 @@ package Module::Build::Platform::VMS;
 
 use strict;
 use vars qw($VERSION);
-$VERSION = '0.35_14';
+$VERSION = '0.35_15';
 $VERSION = eval $VERSION;
 use Module::Build::Base;
 use Config;
index 308260d..3390c34 100644 (file)
@@ -2,7 +2,7 @@ package Module::Build::Platform::VOS;
 
 use strict;
 use vars qw($VERSION);
-$VERSION = '0.35_14';
+$VERSION = '0.35_15';
 $VERSION = eval $VERSION;
 use Module::Build::Base;
 
index 6005955..eed429f 100644 (file)
@@ -2,7 +2,7 @@ package Module::Build::Platform::Windows;
 
 use strict;
 use vars qw($VERSION);
-$VERSION = '0.35_14';
+$VERSION = '0.35_15';
 $VERSION = eval $VERSION;
 
 use Config;
index ba0d3f2..bee0fbc 100644 (file)
@@ -2,7 +2,7 @@ package Module::Build::Platform::aix;
 
 use strict;
 use vars qw($VERSION);
-$VERSION = '0.35_14';
+$VERSION = '0.35_15';
 $VERSION = eval $VERSION;
 use Module::Build::Platform::Unix;
 
index 7e9cd64..399417b 100644 (file)
@@ -2,7 +2,7 @@ package Module::Build::Platform::cygwin;
 
 use strict;
 use vars qw($VERSION);
-$VERSION = '0.35_14';
+$VERSION = '0.35_15';
 $VERSION = eval $VERSION;
 use Module::Build::Platform::Unix;
 
index 9f89908..20dfe2f 100644 (file)
@@ -2,7 +2,7 @@ package Module::Build::Platform::darwin;
 
 use strict;
 use vars qw($VERSION);
-$VERSION = '0.35_14';
+$VERSION = '0.35_15';
 $VERSION = eval $VERSION;
 use Module::Build::Platform::Unix;
 
index d37a97d..998f446 100644 (file)
@@ -2,7 +2,7 @@ package Module::Build::Platform::os2;
 
 use strict;
 use vars qw($VERSION);
-$VERSION = '0.35_14';
+$VERSION = '0.35_15';
 $VERSION = eval $VERSION;
 use Module::Build::Platform::Unix;
 
index aa8ae57..506ab2e 100644 (file)
@@ -2,7 +2,7 @@ package Module::Build::PodParser;
 
 use strict;
 use vars qw($VERSION);
-$VERSION = '0.35_14';
+$VERSION = '0.35_15';
 $VERSION = eval $VERSION;
 use vars qw(@ISA);
 
index 32466b1..1aa8331 100644 (file)
@@ -1,7 +1,7 @@
 package inc::latest;
 use strict;
 use vars qw($VERSION);
-$VERSION = '0.35_14';
+$VERSION = '0.35_15';
 $VERSION = eval $VERSION;
 
 use Carp;
index 5ebc187..6582dbd 100644 (file)
@@ -1,7 +1,7 @@
 package inc::latest::private;
 use strict;
 use vars qw($VERSION);
-$VERSION = '0.35_14';
+$VERSION = '0.35_15';
 $VERSION = eval $VERSION;
 
 use File::Spec;
index 5eb5f02..9de28ec 100644 (file)
@@ -7,6 +7,7 @@ use Config;
 
 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');
 
@@ -16,8 +17,10 @@ my $tmp;
   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} ) {
index a220c8c..9e8d52e 100644 (file)
@@ -2,7 +2,7 @@
 
 use strict;
 use lib 't/lib';
-use MBTest tests => 30;
+use MBTest tests => 29;
 
 blib_load('Module::Build');
 blib_load('Module::Build::ConfigData');
@@ -160,27 +160,6 @@ SKIP: {
   }
 }
 
-{
-  # 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 $@, '';