Commit | Line | Data |
---|---|---|
6b09c160 YST |
1 | package ExtUtils::CBuilder::Platform::aix; |
2 | ||
3 | use strict; | |
4 | use ExtUtils::CBuilder::Platform::Unix; | |
5 | use File::Spec; | |
6 | ||
7 | use vars qw($VERSION @ISA); | |
ed6b886e | 8 | $VERSION = '0.280201'; |
6b09c160 YST |
9 | @ISA = qw(ExtUtils::CBuilder::Platform::Unix); |
10 | ||
11 | sub need_prelink { 1 } | |
12 | ||
13 | sub 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 | ||
31 | 1; |