This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
1a2848e0d6c2d17e82bfa1b7d42dec1adbe1c126
[perl5.git] / dist / ExtUtils-CBuilder / lib / ExtUtils / CBuilder / Platform / aix.pm
1 package ExtUtils::CBuilder::Platform::aix;
2 $ExtUtils::CBuilder::Platform::aix::VERSION = '0.280223';
3 use strict;
4 use ExtUtils::CBuilder::Platform::Unix;
5 use File::Spec;
6
7 use vars qw(@ISA);
8 @ISA = qw(ExtUtils::CBuilder::Platform::Unix);
9
10 sub need_prelink { 1 }
11
12 sub link {
13   my ($self, %args) = @_;
14   my $cf = $self->{config};
15
16   (my $baseext = $args{module_name}) =~ s/.*:://;
17   my $perl_inc = $self->perl_inc();
18
19   # Massage some very naughty bits in %Config
20   local $cf->{lddlflags} = $cf->{lddlflags};
21   for ($cf->{lddlflags}) {
22     s/\Q$(BASEEXT)\E/$baseext/;
23     s/\Q$(PERL_INC)\E/$perl_inc/;
24   }
25
26   return $self->SUPER::link(%args);
27 }
28
29
30 1;