home *** CD-ROM | disk | FTP | other *** search
/ PC World 2005 December (Special) / PCWorld_2005-12_Special_cd.bin / Bezpecnost / lsti / lsti.exe / framework-2.5.exe / aix.pm < prev    next >
Text File  |  2005-04-27  |  984b  |  53 lines
  1. package Module::Build::Platform::aix;
  2.  
  3. use strict;
  4. use Module::Build::Platform::Unix;
  5.  
  6. use vars qw(@ISA);
  7. @ISA = qw(Module::Build::Platform::Unix);
  8.  
  9. sub need_prelink_c { 1 }
  10.  
  11. sub link_c {
  12.   my ($self, $to, $file_base) = @_;
  13.   my $cf = $self->{config};
  14.  
  15.   $file_base =~ tr/"//d; # remove any quotes
  16.   my $perl_inc = File::Spec->catdir($cf->{archlibexp}, 'CORE'); #location of perl.exp
  17.  
  18.   # Massage some very naughty bits in %Config
  19.   local $cf->{lddlflags} = $cf->{lddlflags};
  20.   for ($cf->{lddlflags}) {
  21.     s/\Q$(BASEEXT)\E/$file_base/;
  22.     s/\Q$(PERL_INC)\E/$perl_inc/;
  23.   }
  24.  
  25.   return $self->SUPER::link_c($to, $file_base);
  26. }
  27.  
  28.  
  29. 1;
  30. __END__
  31.  
  32.  
  33. =head1 NAME
  34.  
  35. Module::Build::Platform::aix - Builder class for AIX platform
  36.  
  37. =head1 DESCRIPTION
  38.  
  39. This module provides some routines very specific to the AIX
  40. platform.
  41.  
  42. Please see the L<Module::Build> for the general docs.
  43.  
  44. =head1 AUTHOR
  45.  
  46. Ken Williams, ken@mathforum.org
  47.  
  48. =head1 SEE ALSO
  49.  
  50. perl(1), Module::Build(3), ExtUtils::MakeMaker(3)
  51.  
  52. =cut
  53.