1*b0d17251Schristospackage platform::AIX; 2*b0d17251Schristos 3*b0d17251Schristosuse strict; 4*b0d17251Schristosuse warnings; 5*b0d17251Schristosuse Carp; 6*b0d17251Schristos 7*b0d17251Schristosuse vars qw(@ISA); 8*b0d17251Schristos 9*b0d17251Schristosrequire platform::Unix; 10*b0d17251Schristos@ISA = qw(platform::Unix); 11*b0d17251Schristos 12*b0d17251Schristos# Assume someone set @INC right before loading this module 13*b0d17251Schristosuse configdata; 14*b0d17251Schristos 15*b0d17251Schristossub dsoext { '.so' } 16*b0d17251Schristossub shlibextsimple { '.a' } 17*b0d17251Schristos 18*b0d17251Schristos# In shared mode, the default static library names clashes with the final 19*b0d17251Schristos# "simple" full shared library name, so we add '_a' to the basename of the 20*b0d17251Schristos# static libraries in that case. 21*b0d17251Schristossub staticname { 22*b0d17251Schristos # Non-installed libraries are *always* static, and their names remain 23*b0d17251Schristos # the same, except for the mandatory extension 24*b0d17251Schristos my $in_libname = platform::BASE->staticname($_[1]); 25*b0d17251Schristos return $in_libname 26*b0d17251Schristos if $unified_info{attributes}->{libraries}->{$_[1]}->{noinst}; 27*b0d17251Schristos 28*b0d17251Schristos return platform::BASE->staticname($_[1]) . ($disabled{shared} ? '' : '_a'); 29*b0d17251Schristos} 30