2
0

AIX.pm 751 B

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