r2285@Scotchie: ken | 2007-03-15 21:14:06 -0500

 Compatibility fixes for 5.005


git-svn-id: http://svn.perl.org/modules/Module-Build/trunk@9260 50811bd7-b8ce-0310-adc1-d9db26280581

Changes

@@ -2,6 +2,9 @@ Revision history for Perl extension Module::Build.
 
  - Upgraded to version.pm 0.70. [John Peacock]
 
+ - Removed a couple small constructs in the tests ("use warnings;" and
+   "qw$foo bar$[1]") that caused test failures under perl 5.005.
+
  - Added support for an explicit default value of undef in prompt().
    [Eric Wilhelm]
 

t/metadata.t

@@ -141,9 +141,9 @@ is_deeply($mb->find_dist_packages,
 {
   $dist->change_file( 'lib/Simple.pm', <<'---' );
 package Simple;
-$VERSION = version->new('0.60.' . qw$Revision: 128 $[1]);
+$VERSION = version->new('0.60.' . (qw$Revision: 128 $)[1]);
 package Simple::Simon;
-$VERSION = version->new('0.61.' . qw$Revision: 129 $[1]);
+$VERSION = version->new('0.61.' . (qw$Revision: 129 $)[1]);
 ---
   $dist->regen;
   my $provides = new_build()->prepare_metadata()->{provides};

t/moduleinfo.t

@@ -411,9 +411,9 @@ __DATA__
   # Make sure we handle version.pm $VERSIONs well
   $dist->change_file( 'lib/Simple.pm', <<'---' );
 package Simple;
-$VERSION = version->new('0.60.' . qw$Revision: 128 $[1]);
+$VERSION = version->new('0.60.' . (qw$Revision: 128 $)[1]);
 package Simple::Simon;
-$VERSION = version->new('0.61.' . qw$Revision: 129 $[1]);
+$VERSION = version->new('0.61.' . (qw$Revision: 129 $)[1]);
 ---
   $dist->regen;
 

t/new_from_context.t

@@ -1,6 +1,5 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 
-use warnings;
 use strict;
 use lib $ENV{PERL_CORE} ? '../lib/Module/Build/t/lib' : 't/lib';
 use MBTest tests => 2;