1 package ExtUtils::CBuilder::Platform::aix;
4 use ExtUtils::CBuilder::Platform::Unix;
7 use vars qw($VERSION @ISA);
9 @ISA = qw(ExtUtils::CBuilder::Platform::Unix);
11 sub need_prelink { 1 }
14 my ($self, %args) = @_;
15 my $cf = $self->{config};
17 (my $baseext = $args{module_name}) =~ s/.*:://;
18 my $perl_inc = $self->perl_inc();
20 # Massage some very naughty bits in %Config
21 local $cf->{lddlflags} = $cf->{lddlflags};
22 for ($cf->{lddlflags}) {
23 s/\Q$(BASEEXT)\E/$baseext/;
24 s/\Q$(PERL_INC)\E/$perl_inc/;
27 return $self->SUPER::link(%args);