"Fossies" - the Fresh Open Source Software Archive

Member "install-tl-20200916/tlpkg/tlperl/lib/ExtUtils/CBuilder/Platform/aix.pm" (7 Mar 2020, 625 Bytes) of package /windows/misc/install-tl.zip:


As a special service "Fossies" has tried to format the requested source page into HTML format using (guessed) Perl source code syntax highlighting (style: standard) with prefixed line numbers and code folding option. Alternatively you can here view or download the uninterpreted source code file.

    1 package ExtUtils::CBuilder::Platform::aix;
    2 
    3 use warnings;
    4 use strict;
    5 use ExtUtils::CBuilder::Platform::Unix;
    6 use File::Spec;
    7 
    8 our $VERSION = '0.280231'; # VERSION
    9 our @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;