[svn:ExtUtils-CBuilder] r12996 - in ExtUtils-CBuilder/trunk: . t

Author: dagolden
Date: Fri Jul  3 07:39:33 2009
New Revision: 12996

Modified:
   ExtUtils-CBuilder/trunk/Changes
   ExtUtils-CBuilder/trunk/t/00-have-compiler.t

Log:
convert relative $^X to absolute for testing [David Wheeler]

Modified: ExtUtils-CBuilder/trunk/Changes
==============================================================================
--- ExtUtils-CBuilder/trunk/Changes	(original)
+++ ExtUtils-CBuilder/trunk/Changes	Fri Jul  3 07:39:33 2009
@@ -2,6 +2,9 @@
 
 0.26_02 - 
 
+ Bugs fixed:
+ - Fixed 00-have-compiler.t if $^X is a relative path [David Wheeler]
+
 0.2601 - Wed Jul  1 09:37:39 EDT 2009
 
  Bugs fixed:

Modified: ExtUtils-CBuilder/trunk/t/00-have-compiler.t
==============================================================================
--- ExtUtils-CBuilder/trunk/t/00-have-compiler.t	(original)
+++ ExtUtils-CBuilder/trunk/t/00-have-compiler.t	Fri Jul  3 07:39:33 2009
@@ -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 @@
 
 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 @@
 
 # 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" );