[Summary view] [Print] [Text view]

   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);
   8  $VERSION = '0.21';
   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;