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
use IO::File;
use vars qw($VERSION);
-$VERSION = '0.2601';
+$VERSION = '0.2602';
sub new {
my $class = shift;
use ExtUtils::CBuilder::Base;
use vars qw($VERSION @ISA);
-$VERSION = '0.2601';
+$VERSION = '0.2602';
@ISA = qw(ExtUtils::CBuilder::Base);
sub link_executable {
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);
use IO::File;
use vars qw($VERSION @ISA);
-$VERSION = '0.2601';
+$VERSION = '0.2602';
@ISA = qw(ExtUtils::CBuilder::Base);
sub new {
use File::Spec;
use vars qw($VERSION @ISA);
-$VERSION = '0.2601';
+$VERSION = '0.2602';
@ISA = qw(ExtUtils::CBuilder::Platform::Unix);
sub need_prelink { 1 }
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 {
use ExtUtils::CBuilder::Platform::Unix;
use vars qw($VERSION @ISA);
-$VERSION = '0.2601';
+$VERSION = '0.2602';
@ISA = qw(ExtUtils::CBuilder::Platform::Unix);
sub compile {
use vars qw($VERSION @ISA);
@ISA = qw(ExtUtils::CBuilder::Platform::Unix);
-$VERSION = '0.2601';
+$VERSION = '0.2602';
sub link_executable {
my $self = shift;
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 }
#! 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'
use strict;
use Test::More;
-use File::Spec;
BEGIN {
if ($^O eq 'VMS') {
# So we can get the return value of system()
# 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" );