home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2006 November (DVD) / PCWELT_11_2006.ISO / casper / filesystem.squashfs / usr / share / perl / 5.8.8 / ExtUtils / MM_AIX.pm < prev    next >
Encoding:
Perl POD Document  |  2006-07-07  |  1.6 KB  |  81 lines
  1. package ExtUtils::MM_AIX;
  2.  
  3. use strict;
  4. use vars qw($VERSION @ISA);
  5. $VERSION = '0.03';
  6.  
  7. require ExtUtils::MM_Unix;
  8. @ISA = qw(ExtUtils::MM_Unix);
  9.  
  10. use ExtUtils::MakeMaker qw(neatvalue);
  11.  
  12.  
  13. =head1 NAME
  14.  
  15. ExtUtils::MM_AIX - AIX specific subclass of ExtUtils::MM_Unix
  16.  
  17. =head1 SYNOPSIS
  18.  
  19.   Don't use this module directly.
  20.   Use ExtUtils::MM and let it choose.
  21.  
  22. =head1 DESCRIPTION
  23.  
  24. This is a subclass of ExtUtils::MM_Unix which contains functionality for
  25. AIX.
  26.  
  27. Unless otherwise stated it works just like ExtUtils::MM_Unix
  28.  
  29. =head2 Overridden methods
  30.  
  31. =head3 dlsyms
  32.  
  33. Define DL_FUNCS and DL_VARS and write the *.exp files.
  34.  
  35. =cut
  36.  
  37. sub dlsyms {
  38.     my($self,%attribs) = @_;
  39.  
  40.     return '' unless $self->needs_linking();
  41.  
  42.     my($funcs) = $attribs{DL_FUNCS} || $self->{DL_FUNCS} || {};
  43.     my($vars)  = $attribs{DL_VARS} || $self->{DL_VARS} || [];
  44.     my($funclist)  = $attribs{FUNCLIST} || $self->{FUNCLIST} || [];
  45.     my(@m);
  46.  
  47.     push(@m,"
  48. dynamic :: $self->{BASEEXT}.exp
  49.  
  50. ") unless $self->{SKIPHASH}{'dynamic'}; # dynamic and static are subs, so...
  51.  
  52.     push(@m,"
  53. static :: $self->{BASEEXT}.exp
  54.  
  55. ") unless $self->{SKIPHASH}{'static'};  # we avoid a warning if we tick them
  56.  
  57.     push(@m,"
  58. $self->{BASEEXT}.exp: Makefile.PL
  59. ",'    $(PERLRUN) -e \'use ExtUtils::Mksymlists; \\
  60.     Mksymlists("NAME" => "',$self->{NAME},'", "DL_FUNCS" => ',
  61.     neatvalue($funcs), ', "FUNCLIST" => ', neatvalue($funclist),
  62.     ', "DL_VARS" => ', neatvalue($vars), ');\'
  63. ');
  64.  
  65.     join('',@m);
  66. }
  67.  
  68.  
  69. =head1 AUTHOR
  70.  
  71. Michael G Schwern <schwern@pobox.com> with code from ExtUtils::MM_Unix
  72.  
  73. =head1 SEE ALSO
  74.  
  75. L<ExtUtils::MakeMaker>
  76.  
  77. =cut
  78.  
  79.  
  80. 1;
  81.