Updated ExtUtils::CBuilder to 0.2602
authorDavid Golden <dagolden@cpan.org>
Sat, 4 Jul 2009 15:23:22 +0000 (11:23 -0400)
committerH.Merijn Brand <h.m.brand@xs4all.nl>
Sat, 4 Jul 2009 15:50:01 +0000 (17:50 +0200)
0.2602 - Sat Jul  4 10:57:12 EDT 2009

 Bugs fixed:
 - Fixed 00-have-compiler.t if $^X is a relative path [David Wheeler]

Signed-off-by: H.Merijn Brand <h.m.brand@xs4all.nl>
lib/ExtUtils/CBuilder.pm
lib/ExtUtils/CBuilder/Base.pm
lib/ExtUtils/CBuilder/Platform/Unix.pm
lib/ExtUtils/CBuilder/Platform/VMS.pm
lib/ExtUtils/CBuilder/Platform/Windows.pm
lib/ExtUtils/CBuilder/Platform/aix.pm
lib/ExtUtils/CBuilder/Platform/cygwin.pm
lib/ExtUtils/CBuilder/Platform/darwin.pm
lib/ExtUtils/CBuilder/Platform/dec_osf.pm
lib/ExtUtils/CBuilder/Platform/os2.pm
lib/ExtUtils/CBuilder/t/00-have-compiler.t

index b018547..eb859ae 100644 (file)
@@ -5,7 +5,7 @@ use File::Path ();
 use File::Basename ();
 
 use vars qw($VERSION @ISA);
-$VERSION = '0.2601';
+$VERSION = '0.2602';
 $VERSION = eval $VERSION;
 
 # Okay, this is the brute-force method of finding out what kind of
index baef158..1184953 100644 (file)
@@ -9,7 +9,7 @@ use Text::ParseWords;
 use IO::File;
 
 use vars qw($VERSION);
-$VERSION = '0.2601';
+$VERSION = '0.2602';
 
 sub new {
   my $class = shift;
index 8881d26..8672e3e 100644 (file)
@@ -4,7 +4,7 @@ use strict;
 use ExtUtils::CBuilder::Base;
 
 use vars qw($VERSION @ISA);
-$VERSION = '0.2601';
+$VERSION = '0.2602';
 @ISA = qw(ExtUtils::CBuilder::Base);
 
 sub link_executable {
index 9b5bb50..97434a3 100644 (file)
@@ -4,7 +4,7 @@ use strict;
 use ExtUtils::CBuilder::Base;
 
 use vars qw($VERSION @ISA);
-$VERSION = '0.2601';
+$VERSION = '0.2602';
 @ISA = qw(ExtUtils::CBuilder::Base);
 
 use File::Spec::Functions qw(catfile catdir);
index e219567..73d53ae 100644 (file)
@@ -10,7 +10,7 @@ use ExtUtils::CBuilder::Base;
 use IO::File;
 
 use vars qw($VERSION @ISA);
-$VERSION = '0.2601';
+$VERSION = '0.2602';
 @ISA = qw(ExtUtils::CBuilder::Base);
 
 sub new {
index c6de6a5..011ef81 100644 (file)
@@ -5,7 +5,7 @@ use ExtUtils::CBuilder::Platform::Unix;
 use File::Spec;
 
 use vars qw($VERSION @ISA);
-$VERSION = '0.2601';
+$VERSION = '0.2602';
 @ISA = qw(ExtUtils::CBuilder::Platform::Unix);
 
 sub need_prelink { 1 }
index 41d3600..7f996dc 100644 (file)
@@ -5,7 +5,7 @@ use File::Spec;
 use ExtUtils::CBuilder::Platform::Unix;
 
 use vars qw($VERSION @ISA);
-$VERSION = '0.2601';
+$VERSION = '0.2602';
 @ISA = qw(ExtUtils::CBuilder::Platform::Unix);
 
 sub link_executable {
index e6b1be0..45c03a8 100644 (file)
@@ -4,7 +4,7 @@ use strict;
 use ExtUtils::CBuilder::Platform::Unix;
 
 use vars qw($VERSION @ISA);
-$VERSION = '0.2601';
+$VERSION = '0.2602';
 @ISA = qw(ExtUtils::CBuilder::Platform::Unix);
 
 sub compile {
index 1e0a5f5..65344f2 100644 (file)
@@ -6,7 +6,7 @@ use File::Spec;
 
 use vars qw($VERSION @ISA);
 @ISA = qw(ExtUtils::CBuilder::Platform::Unix);
-$VERSION = '0.2601';
+$VERSION = '0.2602';
 
 sub link_executable {
   my $self = shift;
index d6fc8f5..1664890 100644 (file)
@@ -4,7 +4,7 @@ use strict;
 use ExtUtils::CBuilder::Platform::Unix;
 
 use vars qw($VERSION @ISA);
-$VERSION = '0.2601';
+$VERSION = '0.2602';
 @ISA = qw(ExtUtils::CBuilder::Platform::Unix);
 
 sub need_prelink { 1 }
index 1ba22f8..cf62e97 100644 (file)
@@ -1,6 +1,9 @@
 #! perl -w
 
+use File::Spec;
+my $perl;
 BEGIN {
+  $perl = File::Spec->rel2abs($^X);
   if ($ENV{PERL_CORE}) {
     chdir 't' if -d 't';
     chdir '../lib/ExtUtils/CBuilder'
@@ -11,7 +14,6 @@ BEGIN {
 
 use strict;
 use Test::More;
-use File::Spec;
 BEGIN { 
   if ($^O eq 'VMS') {
     # So we can get the return value of system()
@@ -34,8 +36,8 @@ is( $b->have_compiler, 0, "have_compiler: fake missing cc" );
 
 # test found compiler
 $b->{have_compiler} = undef;
-$b->{config}{cc} = "$^X -e1 --";
-$b->{config}{ld} = "$^X -e1 --";
+$b->{config}{cc} = "$perl -e1 --";
+$b->{config}{ld} = "$perl -e1 --";
 is( $b->have_compiler, 1, "have_compiler: fake present cc" );