home *** CD-ROM | disk | FTP | other *** search
/ Mac Easy 2010 May / Mac Life Ubuntu.iso / casper / filesystem.squashfs / usr / share / perl / 5.10.0 / ExtUtils / CBuilder / Platform / aix.pm next >
Encoding:
Perl POD Document  |  2009-06-26  |  617 b   |  32 lines
  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;
  32.