Commit | Line | Data |
6b09c160 |
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); |
8a6e5c04 |
8 | $VERSION = '0.21'; |
6b09c160 |
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; |