K2LL33D SHELL

 Apache/2.4.7 (Ubuntu)
 Linux sman1baleendah 3.13.0-24-generic #46-Ubuntu SMP Thu Apr 10 19:11:08 UTC 2014 x86_64
 uid=33(www-data) gid=33(www-data) groups=33(www-data)
 safemode : OFF
 MySQL: ON | Perl: ON | cURL: OFF | WGet: ON
  >  / usr / share / perl / 5.18.2 / ExtUtils / CBuilder / Platform / 		server ip : 172.67.156.115

your ip : 172.70.178.21

H O M E


Filename/usr/share/perl/5.18.2/ExtUtils/CBuilder/Platform/aix.pm
Size621
Permissionrw-r--r--
Ownerroot : root
Create time27-Apr-2025 10:10
Last modified21-Nov-2018 01:11
Last accessed08-Jul-2025 00:09
Actionsedit | rename | delete | download (gzip)
Viewtext | code | image
package ExtUtils::CBuilder::Platform::aix;

use strict;
use ExtUtils::CBuilder::Platform::Unix;
use File::Spec;

use vars qw($VERSION @ISA);
$VERSION = '0.280209';
@ISA = qw(ExtUtils::CBuilder::Platform::Unix);

sub need_prelink { 1 }

sub link {
my ($self, %args) = @_;
my $cf = $self->{config};

(my $baseext = $args{module_name}) =~ s/.*:://;
my $perl_inc = $self->perl_inc();

# Massage some very naughty bits in %Config
local $cf->{lddlflags} = $cf->{lddlflags};
for ($cf->{lddlflags}) {
s/\Q$(BASEEXT)\E/$baseext/;
s/\Q$(PERL_INC)\E/$perl_inc/;
}

return $self->SUPER::link(%args);
}


1;