1package ExtUtils::CBuilder::Platform::aix;
2
3use warnings;
4use strict;
5use ExtUtils::CBuilder::Platform::Unix;
6use File::Spec;
7
8our $VERSION = '0.280236'; # VERSION
9our @ISA = qw(ExtUtils::CBuilder::Platform::Unix);
10
11sub need_prelink { 1 }
12
13sub link {
14  my ($self, %args) = @_;
15  my $cf = $self->{config};
16
17  (my $baseext = $args{module_name}) =~ s/.*:://;
18  my $perl_inc = $self->perl_inc();
19
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/;
25  }
26
27  return $self->SUPER::link(%args);
28}
29
30
311;
32